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IDENTIFICATION 
PRODUCT NAME:  CNDRCAO DRV11J DIAG TST PRT1 
PRODUCT CODE:  AC=T447A=MC 
PRODUCT DATE: DECEMBER, 1982 
MAINTAINER: DIAGNOSTICS SERVICES/ISS 


AUTHOR : W.HEAVEY 


COPYRIGHT (C) 1982,1983 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILI*Y "F ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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CNDRCA.P11 10=DEC=82 14:37 SEQ 0002 
| 568 

5386 


5 “GPA HEADER “/CNDRCA DRV11J ppiac TST PRT1/,1982,*/BILL HEAVEY/ 
‘TITLE CNDRCA ORV11J DIAG TST PRT1 

“6 :*COPYRIGHT (C) 1982 

(1) [*DIGITAL EQUIPMENT CORP. 

(1) ; #MAYNARD, MASS. 01754 

(1) ;*PROGRAM BY BILL HEAVEY 

(1) + STHIS PROGRAM WAS ASSEMBLED SING THE PDP=11 MAINDEC SYSMAC 

(1) ; *PACKAGE (MAINDEC=11-DZQAC=C3), JAN 19, 1977. 

(1) 000001 btw=1 

(1) 160000 $SWR=160000 sHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
5687 :* EDITED TO PerAiT DRV'’S TO RUN ON FALCON (KXT11). 3 
2688 :* . PASQUANTONIO, JULY °81 *:GPA 
5690 165400 isur=165400 
5691 000001 
5692 SBTTL OPERATIONAL SWITCH SETTINGS 

3;* 

(1) jt SWITCH USE 

(1) ;* Peeeee i £$; ji i = £i&®®e®e&eeeeeeeee2020 

(1) it 15 HALT ON ERROR 

(1) ie 14 LOOP ON TEST 

(1) it 13 INHIBIT ERROR TYPEOUTS 

(1) * 11 INHIBIT ITERATI 

(1) it 9 LOOP ON ERROR 

(1) ie 8 LOOP ON TEST IN SWR<7:0> 
5695 “SBTTL BASIC DEFINITIONS 

(1) z*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *#* 

(1) 001100 STACK= 1100 

(1) -EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 

(1) -EQUIV 10T,SCOPE ::BASIC DEFINITION OF SCOPE CALL 

(1) ; sMISCELLANEOUS DEFINITIONS 

(1) 000011 HT= 11 33CODE FOR HORIZONTAL TAB 

(1) 000012 LF= 1 :CODE FOR LINE FEED 

(1) 000015 CR= 1 ::CODE FOR CARRIAGE RETURN 

(1) 000200 CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 

(1) 177776 PS= 177776 ::PROCESSOR STATUS WORD 

(1) .EQUIV PS,PSW 

(1) 177774 STKLMT= 177774 STACK L LIMIT REGISTER 

(1) 177772 PIRQ= 177772 :PROGRAM INTERRUPT REQUEST REGISTER 

(1) 177570 DSWR= 177570 : S HARDWARE SWITCH REGIST ER 

(1) 177570 DDISP= 177570 ARDWARE DISPLAY REGISTE 

(1) Loess THE FOLLOWING ODT START ADDRESS FOR SBC 14021 1S ADDED 

(1) 170000 ODT 170 

(1) OP CENERAL PURPOSE REGISTER DEFINITIONS 

(1) 000000 RO= 20 3:GENERAL REGISTER 

(1) 000001 Ri= 21 *:GENERAL REGISTER 

(1) 900008 R2= xe ::GENERAL REGISTER 

(1) 00000 R3= % T:GENERAL REGISTER 

(1) 000004 R4= 24 ::GENERAL REGISTER 

(1) 000005 R5= 25 S:GENERAL REGISTER 

(1) 000006 R6= %6 ::GENERAL REGISTER 
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\CNDRCA.P11 =: 10=DEC=82 14:37 BASIC DEFINITIONS SEQ 0003 
a) 000007 R7= %7 : GENERAL REGISTER 
(1) 000006 SP= % i STACK POINTER 
(1) 000007 PC= % PROGRAM COUNTER 
(1) -*PRIORITY LEVEL DEFINITIONS 
(1) PRO= sO) s;PRIORITY LEVEL 0 
(1) 000040 PRi=z = 40 ::PRIORITY LEVEL 1 
(1) 000100 PR2= 100 S:PRIORITY LEVEL : 
(1) 000140 PR3= —s-:140 t:PRIORITY LEVEL 
(1) 000200 PR4= 00 >:PRIORITY LEVEL 4 
(1) 000240 PR5= 40 zs ;PRIORITY LEVEL 5 
(1) PR6= 00 s;PRIORITY LEVEL 6 
4 340 PR7= 340 s;PRIORITY LEVEL. 7 
(1) s*""SWITCH REGISTER’ SWITCH DEFINITIONS 
(1) 1 $w15= 100000 
(1) 040000 SWi4= 4000 
(1) 020000 SW13= 20 
(1) 010000 SWi2= 10 
(1) 000 SWi1= 4000 
(1) 002000 Sw10= 20: 

(1) 001000 swO9= 1000 

(1) 00 SwO08= 00 

(1) 000200 SwO7= 200 

(1) 000100 SwO6= 100 

(1) 000040 sw0oS= 40 

(1) 000020 SwO4= 20 

(1) 000010 SwO3= 10 

(1) 04 SwO2= 4&4 

(1) 000002 SwOl= 2 

(1) 1 SwoO= 1 

(1) -EQUIV $W09,SW9 
(1) “EQUIV SW08,SW8 
(1) “EQUIV $WO7,SW7 
(1) “EQUIV Su06 

(1) “EQUIV $W05.SW5 
(1) eEQUIV SwW04, 
(1) eEQUIV S$w03,SW3 
(1) “EQUIV SWO2.SW2 
(1) “EQUIV SWO1.SW1 
(1) “EQUIV $wW00,SWO 
(1) :*DATA err DEFINITIONS (BITOO TO B1T15) 
(1) 100000 BIT15= 100000 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) 004000 BIT11= 4000 
(1) 002000 BIT10= 2000 
(1) 001000 BIT09= 1000 

(1) 000400 BITOB= 400 

(1) 000200 BITO7= 200 

(1) 000100 BIT06= 100 

(1) 00004 BITOS= 40 

(1) 000020 BIT04= 20 

(1) 000010 BITO3= 10 
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0(1046) 
\CNDRCA.P11 — 10=DEC=82 14:37 BASIC DEFINITIONS SEQ 0004 
| (1) 000004 BITO2= 4 
mM 000002 BITO1= 2 
i @) 000001 BITOO= 1 
(1) EQUIV BIT09,B1T9 
a “EQUIV B1T08,81T8 
; “EQUIV BIT07,BIT7 
(1) SEQUIV B1T06.B116 
| (1) “EQUIV B1T05.BITS 
(1) SEQUIV BIT04,BIT4 
(1) -EQUIV B1T03,B1T3 
(1) “EQUIV BIT02.BIT2 
(1) -EQUIV BITO1,B1T1 
(1) .EQUIV BITOO,BITO 
(1) ;*BASIC “'CPU' TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 TIME OUT AND OTHER ERRORS 
() 000010 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
1) 000014 TBITVEC=14 3: Bit 
(1) 000014 TRIVEC= 14 S: TRACE T 
(1) 14 BPTVEC= 14 BREAKPOINT TRAP (BPT 
(1) 000020 IOTVEC= 30 3s INPU T/OUTPUT TRAP (oT) **SCOPEes 
(1) 24 PWRVEC= 24 [POWER FAIL 
(1) 000030 EMTVEC= 30 3 TEMULATOR TRAP (EMT) **ERROR** 
(1) 34 TRAPVEC=34 :"TRAP’’ TRA 
(1) 60 TKVEC= 60 a Y KEYBOARD VECTOR 
(1) TPVEC= 64 PRINTER VECTOR 
(1) peeeee THE FOLLOWING eréAx. VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 
(1) 000100 ikvEC= 1 sLI hock VECTOR 
(1) 000140 BRKVEC= 14 ; BREAK 
(1) 4 PIRQVEC=240 PROGRAM FNTERRUPT REQUEST VECTOR 
56 ABASE= 174160 :BASE A DRES 
ADEVM= 1 BE rAULT TO ONE DRV11J 
RDY=  _BIT15 
DIR=  BI1T8 
1E= BIT9 
:CHIP COMMAND SUMMARY 
CIRMR= 20 ZCLEAR IRR AND IMR 
CSIRMR= 30 [CLEAR SINGLE IRR AND IMR BIT 
CIMR= 40 ZCLEAR IMR 
CSIMR= 50 [CLEAR SINGLE IMR BIT 
SIMR= 60 [SET ALL IMR BITS 
SSIMR= 70 [SET SINGLE IMR BITS 
CIRR= 100 :CLEAR IRR 
CSIRR= 110 [CLEAR SINGLE IRR BITS 
SIRR= 120 [SET ALL IRR BITS 
SSIRR= 130 SSET SINGLE IRR BITS 
CHPISR= 140 CLEAR HIGHEST PRIORITY ISR BIT 
CISR= 160 CLEAR ISR 
CSISR= 170 ZCLEAR SINGLE ISR BIT 
LMD04= 300 :LOA D MODE BITS MO-M4 
LMD57= 240 OAD MODE BITS MS-M7 
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h NDRCA.P11 —-10=DEC=82 14:37 BASIC DEFINITIONS SEQ 0005 
5720 
3721 CHIP MovE BIT PRESELECTION 
57 é 000240 MISR= 240 
| $75 000244 MIMR= 344 
| 5724 000250 MIRR= 250 
3725 000254 MACR= 254 : 
5727 :CHIP WRITE PRESELECTION 
5728 000300 PACR= 300 ;PRESELECT AUTO CLEAR REG. FOR WRITING 
5729 000260 PIMR= 260 SPRESELECT IMR REG. FOR WRITING ~ 
3730 000340 PVMA= 340 [PRESELECT VECTOR MEMORY ADDRESS . 
ret -SBTTL TRAP CATCHER 
(1) 000000 =0 
(1) *ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT 
(1) ; *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTER T 
(1) soci >*LOCA TION 9 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
(1) 000174 000000 DISPREG: -WORD O sz SOFTWARE DISPLAY REGISTER 
(1) 000176 000000 SWREG: .WORD 0 TISOFTWARE SWITCH REGISTER 
(1) -SBTTL STARTING SADDRESS(ES) 
$2 000200 900137 001402 "Oo T ;;JUMP TO STARTING ADDRESS OF PROGRAM 
5734 000100 000104 000200 000002 “2109 104,200,2 ;1F "B EVENT® ON Q BUS IS CONNECTED 
5735 ; IGNORE IT'S INTERRUPT = JUST DO A RTI 
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NVR RFRA 
WW ed ed etd ed ND 
Gicwoevwweve 
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000052 
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000106 
809038 

13022 

052 
000000 
000106 
001000 
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ACT11 HOOKS 


-SBTTL ACT11 HOOKS 


Sandon de dtd hl tac sical cei ai 


:HooKs REQUIRED BY ACT11 
$s PC:. sSAVE PC 


SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


-WORD 0 gse)seT LOC. see TO ZERO 
tty 33 RESTORE P 
LONGEST TEST TIME 
71ST PASS RUN TIME 


ADDITIONAL RUN TIME 
-SBTTL APT PARAMETER BLOCK 


PRRAREREA ERE ATEREA TEA REREAEEAREREAREAEAEAERAEKRERREReE RHE Keeee 
Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
Tritt iisitit iii tisriti is tititiiitiiiiiiiiiiiiiiiiiiitiiiiiiiy) 
- $X=. 23 SAVE CURRENT LOCATION 
2=24 SET POWER FAIL TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
~=44 sPOINT TO APT eye bs ADDRESS PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOCK 
2=.$X  5;RESET LOCATION COUNTER 
PPE itiita iii iitetittaliteliitilitiiiiiiiii iii) 
sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
ZINTERFACE SPEC. 


SAPTHD: 

SHIBTS: .WORD 0 33TWO HIGH BITS OF 18 BIT MAILBOX 7. 
SMBADR: .WORD etna te 3 OF APT MAILBOX (BITS 0-15 
STSTM: .WORD N TIM OF LONGEST TEST 


SPASTM: .WORD 50. :ERUN TIME IN SECS. OF 1ST PASS y 1 UNIT (QUICK VERIFY) 


SEQ 0006 


SUNITM: .WORD 20. ADDITIONAL RUN TIME (SECS) OF A a FOR EACH ADDITIONAL UNIT 


«WORD SETEND-SHAIL/2 3;LENGTH MAILBOX-E TABLE (WORDS 
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‘CNDRCA.P11 »—s- 10=DEC=82 14:37 COMMON TAGS SEQ 0007 
5743 .SBTTL COMMON TAGS 
(2) FARRAR AREEAE SE EE EE EE AEE AAEAAAAERERAAAAERAAEEEAEEEEEEEEREE 
(1) THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
(1) S*USED IN THE PROGRAM. 
(1) 001100 .=1100 
(1) 001100 SCMTAG: ::START OF COMMON TAGS 
(1) 001100 000000 WORD 0 
(1) 001102 000 STSTNM: .BYTE 0 i CONTAINS THE TEST NUMBER 
(1) 001103 000 SERFLG: .BYTE 0 S: CONTAINS ERROR FLAG 
(1) 001104 000 SICNT: . 0 S: CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: .WORD 0 ::CONTAINS SCOPE LOOP ADDRESS 
(1) 001110 000000 SLPERR: .WORD 0 [CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 00 SERTTL: . 0 T:CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL BY 
(1) 001115 001 SERMAX: .BYTE 1 33CONTAINS MAX. ERRORS PER TEST 
(1) 001116 000000 SERRPC: . 0 [CONTAINS PC OF LAST ERROR, INSTRUCTION 
(1) 001120 000000 $GDADR: .WORD 0 t:CONTAINS ADDRESS OF ‘GOO 
(1) 001122 SBDADR: .WORD 0 S:CONTAINS ADDRESS OF ‘BAD® Data 
(1) 001124 SGDDAT: .WORD 0 :3CONTAINS *GOOD* DATA 
(1) 001126 000000 SBDDAT: . 0 : AINS ° ATA 
(1) 001130 000000 ;WORD 0 t:RESERVED=-NOT TO BE USED 
(1) 001132 000000 “WORD 0 
(1) 001134 000 SAUTOB: .BYTE 0 ::AUTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 S: INTERRUPT MODE INDICATOR 
(1) 001136 00 p 0 
(1) 001140 177570 SwWR WOR?  DSWR ZADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WCRD DDISP S:ADDRESS OF DISPLAY REGISTER 
(1) 001144 177560 $TKS: 177560 ::TTY KBD STATUS 
(1) 001146 177562 $TKB: 177562 t:TTY K R 
(1) 001150 177564 $TPS: 177564 [:TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 ::TTY PRINTER BUF-ER REG. ADDRESS 
(1) 001154 000 $NULL: .BYTE 0 S:CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 
(1) ;CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: .BYTE 13 :INSERT FILL CHARS. AFTER A "LINE FEED" 
(1) 001157 000 STPFLG: .BYTE 0 2 TERMINAL AVAILABLE FLAG (BIT<07>=0=YES) 
(1) 001160 000000 STIMES: 0 [MAX. NUMBER OF ITERATIONS 
(1) 001162 000000 $ESCAPE :0 ; HESCAPE ON ERROR ADDRESS 
(1) 001164 077 $QUES: .ASCII /2/ TQUESTION MARK 
(1) 001165 015 SCRLF: . ASCII <15> : {CARRIAGE RETURN 
(1) 001166 000012 SUF: “ASCIZ <12> NE FEED 
(2) 22 + CHRHERRRREEERERRREEEEEEEREREREAAEEREREREREREREREREEREREREEEEEEe 
(2) -SBTTL APT MAILBOX-ETABLE 
(3) FFARR AAAAAAREREEEARAAAEEEAEAEAAREREAEAEEAAEEAEAEAAEEEEAAEEEAAEEEEE 
(2) "EVEN 
(2) 001170 $MAIL: z:APT MAILBOX 
(2) 001170 000000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
(2) 001172 000000 SFATAL: .WORD AFATAL ::FATAL ERROR NUMBER 
(2) 001174 000000 STESTIN: .WORD ATESTN ::TEST NUMBER 
(2) 001176 000000 SPASS: .WORD APASS ::PASS COUNT 
(2) 001200 000000 SDEVCT: -WORD ADEVCT ::DEVICE COUNT-. 
(2) 001202 000000 SUNIT: .WORD AUNIT ::1/0 UNIT NUMBER 
(2) 001204 000000 SMSGAD: “WORD  AMSGAD S:MESSAGE ADDRESS 


C 
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CNDRCA.P11 10=DEC=-82 14:37 MAILBOX-E TABLE SEQ 0008 
(2) 001206 000000 SMSGLG: .WORD AMSGLG i MESSAGE LENGTH 
(2) 001210 SETABLE: T ENVIRONMENT TABLE 
(2) 001210 000 SENV:  .BYTE AENV + UVIRONMENT BYTE 
(2) 001211 000 SENVM: .BYTE AENVM 
(2) >; ENVIRONMENT MODE BITS 
(2) 001212 000000 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001214 000000 SUSWR: .WORD AUSWR ::USER SWITCHES 
(2) 001216 000000 S$CPUOP: .WORD ACPUOP ::CPU TYPE, TIONS 
(2) * Bits WS-112¢Pu T 
(2) ie 1/04= o1. "1405-02, 11/20=03, 11/40=04,11/45=05 
(2) ie 11/70:06-P00=67, Q=10 
(2) 3* BIT 10=REAL TIME CLOCK 
(2) 3* BIT 9=FLOATING POINT PROCESSOR 
(2) -t BIT 8=MEMORY MANAGEMENT 
(2) 001220 000 $MAMS1: .BYTE AMAMS1 ;:HIGH ADDRESS, M.S. BYTE 
(2) 001221 000 $MTYP1: .BYTE AMTYP1 ::MEM. TYPE.BLK 
(2) je MEM.TYPE BYTE <== (HIGH BYTE) 
(2) 3* NSEC CORE= 
(2) 3* 300 NSEC Sect ARO? 
(2) 38 500 NSEC MOS= 
(2) 001222 000000 $MADR1: .WORD AMADR1 ;;:HIGH ADDRESS,BLK#1 
(2) . MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
(2) 001224 000 $MAMS2: .BYTE AMAMS2 zsHIGH ADDRESS.M.S. BYTE 
(2) 001225 000 SMTVP2: .BYTE AMTYPO 3 ;MEM.TYPE,BLK ka2 
(2) 001226 000000 $MADR2: .WORD AMADR MEM.LAST ADDRESS .BLKA2 
(2) 001230 000 SMAMS3: .BYTE AMAMS + THIGH ADDRESS ,M.S.BYT 
(2) 001231 000 - SMTYP3: .BYTE AMTYP3 ::MEM. TYPE ,BLK#3 
(2) 001232 SMADR3: .WORD AMADR3 :;MEM.LAST ADDRESS,BLK&3 
(2) 001234 000 SMAMS4: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 
(2) 001235 000 SMTYP4: .BYTE AMTYP4 ::MEM.TYPE,BLK#4 
(2) 001236 000000 SMADR4: .WORD AMADR4 i 3MEM. LAST ADDRESS BLK#4 
(2) 001240 000000 SVECT1: .WORD AVECT1 :;INTERRUPT VECTOR#1,BUS PRIORITY#1 
(2) 001242 000000 SVECT2: .WORD AVECT2 :: INTERRUPT VECTOR#2BUS PRIORITY#2 = 
(2) 001244 174160 $BASE: .WORD ABASE 
(2) PHBASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001246 000001 SDEVM: WORD ADEVM ;;DEVICE MAP 
(2) 001250 000000 $CDW1: WORD ACDW1 ::CONTROLLER DESCRIPTION WORD#1 
(2) 001252 SETEND: 
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_CNDRCA.F 11 10=DEC=82 14:37 ERROR POINTER TABLE SEQ 0009 


| (1) .SBTTL ERROR POINTER TABLE 
| 
nh :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
/ 4) THE INFORMATION I$ OBTAINED BY USING THE INDEX NUMBER F . 
| a ;*LOCATION SIVEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE S PERTINENT. 
; aM *NOTE1: If S$ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 
(1) > *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS FAPLAINED AS FOLLOWS: 
| @ :* em ; POINTS TO THE ERROR MESSAGE 
(1) it DH {POINTS TO THE DATA HEADER 
(1) te DT ::POINTS TO THE DAT 
(1) te DF ::POINTS TO THE DATA FORMAT 
(1) 
(1) 


001252 SERRTB: 
5744 sERROR 1 
5745 001252 016633 EM1 :REG age 5 a ER 
016765 ZERRPC TSTNUM B EXPCT RCVD 
017110 7 SERRPC TSTNUM S$BDADR $GDDAT S$BDDAT(RS) 


5750 sERROR 2 
016652 EM2 REG READ/WRITE ER 

5752 001264 016765 DH1 ZERRPC TSTNUM BUSADR EXPCT CVD 
017110 - :SERRPC TSTNUM $BDADR $GDDAT $BDDAT(RS) 


5756 sERROR 3 
74 EM3 IRR REG ER 
765 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 
110 ‘th sSERRPC TSTNUM $BDADR SGDDAT $B8DDAT(RS) 


5762 ERROR 4 

302 016707 EM4 zACR REG ER 

304 016765 DH1 SERRPC TSTNUM BUSADR EXPCT CVD 

4 017110 <‘ ;SERRPC TSTNUM S$BDADR $GDDAT $BDDAT(RS) 


5768 sERROR 5 
2 EMS 7 IMR REG ERROR 
765 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 
110 - sSERRPC TSTNUM $BDADR $GDDAT S$BDDAT(RS) 


5774 sERROR 6 

5775 001322 016735 EM6 z1SR REG ERROR 

5776 001324 016765 DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 

5777 001326 stadt Br ;$ERRPC TSTNUM S$BDADR $GDDAT $BDDAT(RS) 


5781 sERROR 7 

016750 EM7 ;CHIP STAT ER 
016765 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 
017110 DT1 sSERRPC TSTNUM S$BDADR $GDDAT S$BDDAT(RS) 
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3 BUS REGISTER ADDRESS POINTERS 


ACRLOC: 


PROGRAM LOCATION(S) 


oooo°oo 


CONTAINS TEST NUMBER ON ERROR 


ae ee ee - eC - Cee 


SEQ 0010 


‘cece: ee 
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CO 00 COCO CO COCO AR RAR RRR RRR ARR AAA AAA AA AAA AEE POO Pn On Om On On 


001109 
001140 
706 001100 
737 015216 


737 016456 


S 
S 
S 
S 
owe Sos I OONVIO 
~w 


2 
5 
2 
1 
2 
2 
§ 
2737 000300 
2 
2 
2 
5 
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2 
2 
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os 


000403 
001574 012716 001602 

001600 000002 
001602 012737 000176 
001610 012737 000174 
6 01 000004 
037 001176 
tae 000200 
737 001212 
001644 005037 001172 


001650 005037 001170 
001654 005037 001174 
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PROGRAM START 


000020 


-SBTTL PROGRAM START 


.SBTTL INITIALIZE THE COMMON TAGS 
73CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV aSCMT 


AG,R6 3zFIRST LOCATION TO BE CLEARED 
CLR (R6)+ 3;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? 
ad 76 3;LOOP BACK IF NO 


#1100,SP 3sSETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTO 


RS 
#$SCOPE ,a#IOTVEC 27107 VECTOR FOR SCOPE ROUTINE 
MOV #PR6 ,a#LOTVEC+? ; LEVEL 
MOV #SERROR,aWEMTVEC isEMT VECTOR FOR ERROR ROUTINE 
#PR6,QWEMTVEC#+2 ;;LEVEL 6 


#STRAP ,a#TRAPVEC ; TRAP VECTOR FOR TRAP CALLS 
MOV #PR6, a#TRAPVEC *2;LEVE 

MOV #SPURDN, a#PWRVEC :;POvER FAILURE VECTOR 

MOV #PRG a#PWRVEC+2 ssl 


CLR STIMES ‘IN Iii ALIZE NUMBER OF ITERATIONS 

CLR SESCAPE FICLEAR THE ESCAPE ON ERROR ADDRESS 

MOVB #1, SERMAX ALLOW ONE ERROR PER TEST 

MOV a °thpenn : INITIALIZE THE LOOP ADDRESS FOR SCOPE 
"st ERROR LOOP ADDRESS 


MOV *SLPERR 
zSIZE FOR A HARDUARE SWITCH REG igtER” F NOT FOUND OR IT IS 
T:EQUAL TO A ‘'=1"', SETU FOR A Sor THARE. SWITCH REGISTER. 

MOV a#ERR VEC ,~ (SP) #3 SAVE ERROR VECTOR 


MOV #64$ — SET UP ERROR VECTOR 
MOV #DSWR,S 23 SETUP An A. HARDWARE SWICH REGISTER 
MOV #DD1SP DISPLAY oo ¢ WARE DISPLAY REGISTER 
CMP #~1,aSWR TRY to" REFERENCE HARDWARE SWR 
BNE 66$ 77BRANCH IF NO TIMEOUT TRAP OCCURRED 
3;AND THE HARDWARE SWR IS NOT = -1 

BR 65$ :sBRANCH IF NO TIMEOUT 

648: at #65$, (SP) 32SET UP FOR TRAP RETURN 

65$: MOV #SWREG, SWR 3sPOINT TO SOFTWARE SWR | 


MOV #DISPREG, DISPLAY 
668: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 


CLR SPASS 3:CLEAR PASS COUNT 
BITB #APTSIZE ,SENVM ty eee ee SIZE UNDER AP7 
BEQ 67$ YES,USE NON-APT SWITCH 

ers MOV #SSWREG, SWR t:NO,USE APT SurTcn REGISTER 
CLR SFATAL 7CLEAR ERROR NUMBER 
CLR sy bh *CLEAR MESSAGE TYPE 
CLR STESTN cL AR TEST NUMBER 

33 THE FOLLOWING 9 LINES WERE DELETED 

37 IN ORDER TO we THIS DIAGNOSTIC SPECIFIC TO 10/29 B's Sa 
3CALL ALCON CHECK FOR FALCON (KXT11) 7:GPA 
3BEQ 10008 : BR iF wer KXT11 SYSTEM 33GPA 
BIC o78 anes 3; YES, STRAP IOT... 7:GPA 
BIC #40 ,a#3 ioe sEAT. 7:GPA 
BIC #40 ,a#36 soe eA D TRAP TO LEVEL 6. 7:GPA 
3 CMP SBASE , #ABASE 3 18 SBASE VIRGIN ?? 33GPA 


SEQ 0011 


CNDRCA DRV11J_ DIAG TST 
CNDRCA.P11 10=DEC-82 


5830 001660 005737 


R 


5851 001756 005737 
00 


5852 001762 001001 
5853 0017 10440 
5854 0017 00503 
5855 001772 013737 
5856 002000 042737 
5857 002 013701 
5858 002012 010137 
5859 002016 032737 
5860 002024 001002 
5861 002026 000137 
5862 002032 012700 
5863 002036 010120 
5864 002040 062701 
5865 002044 022700 
5866 002050 001372 
5867 002052 012706 
5868 002056 012705 
5869 002062 013737 
5870 002070 106427 
5871 
5872 
5875 
5874 

(3) 

(3) 

+6} 002074 000004 


( 
5875 ooeors 


PRT1 
14:37 


000042 
000042 
177777 
001210 
000001 


177777 
001134 
001370 
est 
001134 


001202 


012700 
001342 


000002 
001362 


001100 
001126 


001202 
000300 


001124 
002140 


MACY11 


000046 
001370 
000001 
001134 


001364 
001364 


001364 


001200 


000004 


M1 
30(1046) 15=DEC=82 15: +e PAGE 57-10 
INITIALIZE THE COMMON TAG 


3BNE 1000$ ; BR IF NOT. 33GPA 
MOV #174160,$BASE ; YES, USE ENGINEERING DEFAULT ;;GPA 


:1000$: S:GPA 
SCHECK OPERATING ENVIRONMENT 
TST and2 sARE WE IN ACT/XXDP AUTO MODE? 
BEQ 1$ SBRANCH IF NO 
CMP a42,a#66 :I1S IT ACT AUTO MODE? 
BEQ 2$ ‘BRANCH IF YES 
MOV #=1,XXDP [SET XXDP CHAIN MODE INDICATOR 
1$: CMPB Ss SENN, #1 yARE WE IN APT AUTO MODE? 
BNE 3$ ‘BRANCH IF 
2$: MOVB #1, $AUTOB SSET AUTO MODE INDICATOR 
“PRINT TITLE IF NOT IN ACT OR APT AUTO MODE 
S$; INC #-1 sFIRST TIME? 
BNE 5$ i SKIP TITLE IF 
TST SAUTOB ARE WE IN AUTO MODE? 
BEQ 4$ {BRANCH TO TILE TYPEQUT | IF hot 
TST XXDP [1S THE AUTO MODE UNDER 
BEQ 5$ SKIP TITLE IF NOT 
4$: TYPE ,TITLED PRINT OUT THE TITLE 
TYPE  ,TLCABL [PRINT "DRV11J CABLE REQ'D"’ 
>GET THE VALUE IN THE SOFTWARE SWITCH REGISTER 
S$: TST $AUTOB zARE WE IN AUTOMATIC MODE? 
BNE START1 ;BRANCH IF 
GTSWR “ASK FOR Suh INPUT FROM CONSOLE 
START1: CLR SUNIT [CLEAR UNIT NUMBER 
MOV $DEVM, DMAP :POSITION OF DRVI1=J'S 
BIC #177760,DMAP = : UPTO 4 DRY ib S ONLY 
MOV SBASE ,R1 !GET BASE ADDRESS 
MOV R1,DRCSA [MAKE BUS REG. POINTER = $BASE 
BIT #1.DMAP 31S FIRST DRVI1~J SELECTED? 
BNE NEXPAS = YES 
JMP NXDEV1 SADVANCE BASE DRV11=J ADDRESS 
NEXPAS: MOV #DRCSA,RO :SET UP REGISTER ADDRESS POINTERS 
NEXPA1: MOV R1, (ROS+ ‘LOAD EM,R1 = DRV11-J CSRA ADDRESS 
ADD #2.R1 [D0 POINTERS FOR ALL REGS, A THRU D 
CMP #DRDBD#2, RO TALL DONE? 
BNE NEXPA1 [BR IF NOT 
MOV #STACK,SP :ALWAYS RESET STACK 
MOV #SBDDAT,RS RS WITH $BDDAT 
MOV SUNIT, SDEVCT tA , APT COUNTER WITH UNIT NO. 
MIPS ¥#PR6 ‘SET PRIORITY TO 6 
FERRER AERA AEA AEA AE AEE AAA AAAEAAAEAAAEEAAAAAEEAAEEEREARREREREEEREE 
TEST 1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 


FRAO ER AREER REA EEAREA AEE EERE EEA AERA EEAAAERAEEEREKEERERERERERES 


1811: SCOPE 


CLR $GDDAT NO DATA COMPARE 
CLR (R5) 3NO_DATA_COMPARE 
MOV #2$ ,A#ERRVEC SET UP TIMEOUT RETURN ADDRS 


SEQ 0012 


se ee ee eee 


/CNDRCA DRVI1J DIAG TST 
/CNDRCA.P11 10=DEC=82 
| $878 002112 013700 
5879 002116 012701 
' §$880 002122 010037 
5881 002 005010 


5888 002144 0127357 


| 
, 3) 0v2152 000004 
| 5891 002154 013700 


002166 
444 002170 010037 
5897 002174 012737 


0] 900nw &£-— 


34 
5924 002340 001401 
5925 002342 104002 


wi 

Oo 

a 

™ 
SO-0—]-90000—00—900000 S 


000006 


001342 
001352 


001122 


100700 
000001 


000007 
001124 


001122 
000200 


000007 
001124 


001122 
100300 
000001 


000007 
001124 
000300 
000001 


000007 
001124 


1 
MACY11 30(1046) 13-E Cage 15:25 PAGE 57-11 
T1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 


MOV DRCSA,RO :SET UP 1ST DRV11 BUS ADRS 
MOV #8. Ri ‘SET UP REG COUNT 
1$: MOV RO, $BDADR :SET UP CURRENT DRV BUS ADRS 
CLR (RO) [SEE IF THERE 
TST (RO)+ ‘BUMP TO NEXT 
DEC R1 :COUNT 8 OF THEM 
BEQ 3$ ‘BR IF ALL DONE 
BR 1$ STRY NEXT 
2$: CMP (SP)+, (SP)+ [FIX STACK SINCE NO RTI 
ERROR “BUS ADRS INDICATED DID NOT RESPOND 
000004 3$: MOV WERRVEC+2,Q#ERRVEC RESTORE LOC 4 
FERRARA EEE EEE EERE EE EERE EREEEEAEEEAEEEEERERERREEEERRE EEE 
SSTEST 2 TEST CSRA W/R DIR BIT, INT. CHIP RESET STATUS 
STEERER EERE EAE ERE EERE EE EEE EE EEERE EERE EREEEREEEREREREREEEEEKEE 
$12: SCOPE 
MOV DRCSA,RO ZfET CSR ADDRESS 
MOV DRCSC.R1 SSTORE CSRC ADDRESS 
CLR (RO) SINIT CSRA 
CLR (R1) TINIT CSRC 
MOV RO, $BDADR ‘STORE CSR ADDRESS 
SET UP EXPECTED DATA 
001124 MOV #pOY 'DIR:BIT7!B1T6, $GD 
000001 MOVB © #BITO,1(RO) SET DIRECTION BIT 
MOV (RO), (RS) [GET CSR DATA 
BIC #7, (RS) SCLEAR UNDEFINED BITS 
CMP $GDDAT, (RS) 
BEQ 100$ 
ERROR 2 :CSRA ERROR 
100$: MOV R1,$BDADR ‘STORE CSRC ADDRESS 
001124 MOV #BIT7,$GDDAT | :STORE EXPECTED 
MOV (R1),(R5) SSTORE CSRC 
BIC #7, (RS) [CLEAR UNDEFINED BITS 
CMP SGDDAT, (RS) 
BEQ 1$ 
ERROR 2 :CSRC ERROR 
1$: MOV RO, $BDADR *CSRA ADDRESS 
001124 MOV #ROY'BIT7!BIT6, sGDd AT 
CLRB —s- 1(RO) :CLEAR CSRA DIR BIT 
MOV (RO), (RS) TREAD CSR 
BIC #7, (RS) [CLEAR UNDEFINED BITS 
CMP $GDDAT, (RS) 
BEQ 2$ ::BR IF EQUAL 
ERROR 2 
001124 2$: MOV #B1T7!B116,$GDDAT 
000001 MOVB #BITO,1(R15 :CSRC TO OUTPUT MODE 
MOV (RO), (R5) TREAD CSRA 
BIC #7, (RS) [CLEAR UNDEFINED BITS 
CMP SGODAT. (R5) :CH ECK IF RDY BIT CLEARED 
BEQ TST3 7;BR IF EQUAL 
ERROR 2 [CSRA REG ERROR 
FURR EAA EERE ERATE EEE EEE AERAAAAEEAAEREEREE ERE E EE 
iSTEST 3 TEST CSRA INT. ENABLE BIT 


FEAR EAA EERE AREER E RETA EER EERE A EEE EAAEEKEE REAR ERE 


SEQ 0013 


Tak ET EG ae LA pp CEs PTT, = 
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CNDRCA.P11 —- 10=DEC=82 14:37 TEST CSRA INT. ENABLE BIT SEQ 0014 
3} 002344 000004 TST3: SCOPE 
5928 002346 004737 01305 JSR PC,CLRCSR ZCLEAR CSR REGISTER 
5929 002352 013700 00134 MOV DRCSA,RO :GET CSRA ADDRESS 
930 902 56 013701 00135 MOV DRCSC.R1 :GET CSRC ADDRESS 
5931 00 112761 1 000001 MOVB #BITO,1(R1) SSET DIRECTION BIT CSRC 
5932 002370 910037 001122 MOV RO, $BDADR “STORE CSRA ADDRESS 
2933 002374 O12? 7 001300 001124 MOV #BiT9'BIT7!B1T6,$GDDAT 
5934 002402 012710 001000 MOV #IE, (RO) 3SET INTERRUPT ENABLE BIT 
5935 002406 011015 (ROS, (RS) 
5936 002410 042715 000007 BIC #7, (R5) :CLEAR UNDEFINED BITS 
5937 002414 023715 001124 CMP SGDDAT, (RS) 
5938 002420 001401 BEQ 1$ 
5939 002422 104002 ERROR 2 » INT. ENABLE ERROR,CSRA 
5940 002424 012737 000300 001124 1$: MOV #BIT7!B1T6,$GDDAT 
5941 002432 105060 000001 CLRB iCLEAR I/E BIT 
5942 002436 011015 V (RO), (RS) 
5943 002440 042715 000007 BIC #7, (R5) ZCLEAR UNDEFINED BITS 
5944 002444 023715 001124 CMP SGDDAT, (RS) 
5945 002450 001407 BEQ TST4 3:BR IF EQUAL 
5946 002452 104002 ERROR 2 :CSRA ERROR 
5948 $3 REEAAAAAAAAAAAAAAAEAATETEEAEAAAAAAERAARAAARAAAAERARARAAERERAEEEE 
(3) T*TEST 4 TEST CSRA I/E,DIR BIT 
(3) 2 3 SAEAKAEAAAAAAAAATAAAAATAATETAAETAEAAAAAAEAAAAAAARAAARAAEARARAAAAARARAAEEAEE 
(2) 002454 000004 TST4: SCOP 
949 45 737 01305 JSR PC, CLRCSR ZCLEAR CSR REGISTERS 
950 $8 te5 903500 ODiseg MOV DRESA RO :GET CSRA ADDRESS 
5951 002466 010037 00112 MOV RO, $BOADR SSAVE CSRA ADDRESS 
5952 00247 01273? 101700 001124 MOV #161700 $sDDAT SEXPECTED 1/E,DIR 
5953 002500 112760 000003 000001 MOVE #BIT1!BIT0,1(RO) 
5954 ;SET I1/E AND DIR BIT 
5955 0025 011015 MOV (RO), (RS) 
956 00251 15 000007 BIE s ZCLEAR UNDEFINED BITS 
5957 002514 023715 001124 CMP S$GDDAT, (RS) 
5958 902520 001401 BEQ 1$ 
5959 0025 loa002 ERROR 2 :CSRA ERROR 
960 002524 o127 100300 001124 1$: MOV #RDY'BIT7!B1 16, $GDDAT 
5961 0025 010 CLR (RO) 
002534 1101 MOV (RO), (RS) 
5963 0025 é 15 900007 BIC #7, (R5) 3CLEAR UNDEFINED BITS 
5964 00 542 023715 001124 CMP SGDDAT, (RS) 
5965 002546 001401 BEQ TST5 ::BR IF EQUAL 
3966 002550 104002 ERROR 2 :CSRA ERROR 
5968 
5 9 FF RRARAAAAAAAAAAAAAAAATAAAAAAAAAAAAAAAAAAAAAAARAAAARERAARATAAAEEEE 
(3) T*TEST 5 TEST CSRB W/R DIR BIT, INT CHIP RESET STATUS 
( ) **RSSKAAEAAKAEATAAEARATAAAASAAAAAAAARATAAEAARAAARAAAEAAAEAREEEAAAEREEE 
3 002552 000004 TSTS: SCOPE 
5970 002554 737 013056 JSR PC,CLRCSR ICLEAR CSR REGISTERS 
5971 002560 013700 001346 MOV DRCSB,R [GET CSR ADDRESS 
3976 00 364 13701 001 58 MOV DRCSD,Ri [GET CSRD ADDRESS 
597 570 010037 00112 MOV RO. $BOADR [STORE CSR ADDRESS 


eee 








C 
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CNDRCA.P11 10=DEC=82 14:37 TEST CSRB W/R DIR BIT, INT CHIP RESET STATUS SEQ 0015 
974 002574 012737 100400 001124 MOV #RDY!DIR, SGDDAT ;SET UP EXPECTED DATA 
975 002602 112760 000001 000001 MOVB #B1T0,1(RO) :SET DIRECTION BIT 
5976 00261 91101 MOV (RO), (RS) :GET CSRB DATA 
5977 002612 023715 001124 CMP SGDDAT, (RS) 
5978 002616 001401 BEQ 100$ 
5979 0026 104002 ERROR 2 :CSRB ERROR 
5980 002622 0101 901122 100$: MOV R1,$BDADR SSTORE CSRD ADDRESS 
5981 0026, $ 005037 001124 CLR SGODAT SSTORE EXPECTED 

98 002632 011115 MOV (R1), (R5) =R 
5983 002634 023715 001124 CMP S$GDDAT, (RS) 
5984 002640 001401 BEQ 1$ 
5985 002642 104002 ERROR 2 :CSRD ERROR 
5986 002644 910037 001122 1$: MOV RO, $BDADR SSTORE CSRB ADDRESS 
5987 002650 012737 100000 001124 MOV #RDY ,SGDDAT ‘STORE EXPECTED 
5988 002656 105060 000001 CLRB =: 1¢ROS [CLEAR CSR DIR BIT 
5989 002 011015 MOV (RO), (R5) SREAD CSR 
5990 002664 023715 001124 CMP $GDDAT, (RS) 
5991 002670 001401 BEQ $ ::8R IF EQUAL 
5992 002672 104002 ERROR 
5993 002674 005037 001124 2$: CLR $GDDAT :STORE EXPECTED 
5994 002700 112761 000001 000001 MOVB #61TO,1(R1) :CSRD TO OUTPUT MODE 
5995 002706 011015 MOV (RO), (RS) : C 
5996 002710 023715 001124 CMP S$GDDAT, (RS) [RDY BIT CLEARED 
5997 002714 001401 BEQ TST6 ':BR IF EQ 
5998 002716 104002 ERROR 2 :CSRB REG ERROR 
6000 FERRARA AAAARAAAAEAAEAEEAEERAEERARAAARAERAERERAAERAEAEEEEEREEREREEREE 

| (3) T*TEST 6 TEST CSRC W/R DIR BIT, INT CHIP RESET STATUS 

(3) 2 3 RAAEAAATAKAAAAAAAAAAAEATAAETEAAEERKAAAARAARAAAAAAARAAARAAAARERAARARAEAAREEE 

(2) 002720 000004 TST6: SCOPE 
6001 002722 004737 013056 JSR PC,CLRCSR ZCLEAR CSR REGISTERS 
6002 002726 013700 00135 MOV DRCSC,RO ?GET CSR ADDRESS 
6003 002732 013701 00134 MOV DRCSA,R1 ?GET CSRA ADDRESS 
6004 002736 010037 00172 MOV RO, $BDADR “STORE CSR ADDRESS 
6005 002742 012737 100600 001124 MOV #RDY'DIR'BIT7, $GDDAT 
6006 002750 112760 000001 000001 MOVB #BI1T0,1(RO) :SET DIRECTION BIT 
6007 002756 011015 MOV (RO), (RS) : 
6008 002760 042715 000007 BIC #7, (R5) [CLEAR UNDEFINED BITS 
6009 002764 023715 001124 CMP SGDDAT, (RS) 
6010 002770 001401 BEQ 100$ 
6011 002772 104002 ERROR 
6012 002774 010137 001122 100$: MOV R1,$BDADR :STORE CSR ADDRESS 
6013 003000 012737 000300 001124 MOV #BiT7'BIT6,$GDDAT 
6014 003006 011115 MOV (R1), (R5) ;READ CSRA 
6015 003010 042715 900007 BIC #7, (R5) [CLEAR UNDEFINED BITS 
6016 903014 023715 001124 CMP SGDDAT, (RS) 
601 3020 001401 BEQ 1$ ZCHECK CSRA 
6018 003022 104 Q ERROR [CSRA ERROR 
6019 0030e4 9100 00112 1$: MOV RO, $SBDADR [STORE CSR ADDRESS 
6020 003030 012737 100200 001124 MOV #ROY'BIT7, SGDDAT: STORE EXPECTED DATA 
6021 3056 105060 000001 CLRB  =—s-:-1(RO) [CLEAR CSR DIR BIT 
ones $e b42718 ? Bie £80} £09) LEAR UNDEF INED BITS 
6024 003050 aE Ske CMP SGDDAT, <R5) . 
6025 003054 001401 BEQ 2$ ::BR IF EQUAL 


Ra SSS SSS Ss SSS sss ssi ssh ~ssss 


Cae 


dD 2 
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CNDRCA.P11 —--10=DEC=82 14 TEST CSRC W/R DIR BIT, INT CHIP RESET STATUS SEQ 0016 
| 6026 003056 10400 -= ERROR 2 
| 6027 003060 1275 000200 001124 2%: MOV #BIT7,$GDDAT | ; EXPECTED DATA 
| 9088 003066 112761 000001 000001 MOVB #BITO.1(R1) [CSRA TO OUTPUT MODE 
| 6029 003074 011015 MOV (RO), (RS) READ CSRC 
| 6030 903076 O4e713 000007 BIC —-_-#7, (5) ZCLEAR UNDEFINED BITS 
6031 003102 023715 001124 CMP SGDDAT, (RS) :RDY BIT CLEARED 
| 6032 003106 001401 BEQ TST? 7:BR IF EQUAL 
6033 003110 104002 ERROR 2 :CSRC REG ERROR 
a i FF RARAAAAEAAEAAAERAAAEEEEE ARERR AAAAAAAAEREREEEERAEAERAERARAAERAN EE 
(3) T*TEST 7 TEST CSRD W/R DIR BIT, INT CHIP RESET STATUS 
(3) FARRAR EREAAEREEREERERAAAAE AEA EERE AEEEAEEEAAAEAREREREREREREEEE 
(2) 003112 000004 TST7: SCOPE 
6036 003114 004737 013056 JSR PC,CLRCSR SCLEAR CSR REGISTERS 
6037 003120 013700 001356 MOV DRCSD, RO [GET CSR ADDRESS 
6038 005124 013701 001546 MOV DRCSB,R1 [CSRB ADDR 
6039 003130 010037 00112 MOV RO, SBOADR TSTORE CSR ADDRESS 
6040 003134 012737 100400 001124 MOV #RDY'DIR,SGDDAT :SET UP EXPECTED DATA 
6041 003142 112760 000001 000001 MOVB #BITO,1(RO) ?SET DIRECTION BIT 
6042 003150 011015 MOV (RO), (RS) :GET CSR DATA 
6043 003152 023715 001124 CMP SGDDAT, (RS) 
6044 003156 001401 BEQ 1008 
6045 003160 104002 ERROR 
6046 003162 010137 001122 100$: MOV R1,$3DADR ;STORE CSRB ADDRESS 
604 003166 005037 001124 CLR SGDDAT SSTORE EXPECTED 
6068 003172 011115 MOV (R1),(R5) 
6049 005174 023715 001124 CMP SGDDAT, (RS) 
6050 003200 001401 BEQ 1$ 
6051 003202 104002 ERROR 2 :CSRB_ ERROR 
605 005204 91005 001122 1$: MOV RO, SBDADR SSTORE CSRD ADDRESS 
6053 003210 0127 7 100000 001124 MOV #ROY,,SGDDAT SSTORE EXPECTED 
6054 005216 105060 000001 CLRB =: 1ROS [CLEAR CSR DIR BIT 
6055 003222 01101 MOV (RO), (RS) TREAD CSR 
6056 003224 023715 001124 CMP SGDDAT, (RS) 
6057 00 001401 BEQ $ z:BR IF EQUAL 
6058 003232 104002 ERROR 
6059 003234 005037 001124 2$: CLR GDDAT ZEXPECTED 
6060 003240 112761 000001 000001 MOVB #BITO,1(R1) [CSRD TO OUTPUT MODE 
6061 003246 011013 MOV (RO), (RS) TREAD CSR 
6062 003250 023715 001124 CMP SGDDAT, (RS) ?RDY BIT CLEARED 
6063 003254 001401 BEQ TST10 7;BR IF EQUAL 
6064 003256 104002 ERROR 2 :CSRD REG ERROR 
6066 3 3 SKEKSSKAAAAAAAAAAKTATSKAAAATAASECARARAARAAAAAAAAAAAAERAREAEEAEREEEAE 
(3) S*TEST 10 TEST DBRA W/R IN OUTPUT MODE 
(3) ° Z SHKAAAAASAAAAAAAAAEAERATSSAAASARARAAARERARAERAEARARAERAAAEAAREEEEE 
(3) 003260 000004 $110: SCOPE 
6067 003262 004737 013056 JSR PC,CLRCSR ICLEAR ALL CSRS 
6068 003266 012703 0131 MOV #BEGPAT R3 :GET DATA PATTERN TABLE 
6069 00 72 012737 003 2 001110 MOV #1$, SLPERR [SET UP SCOPE ADDRESS 
6070 003 13700 001 MOV DRCSA,RO [GET CSRA 
6071 003304 1 701 001344 MOV DRDBA.R1 GET DBRA ADDRESS 
6072 3310 010137 001122 MOV R1,$BOADR [STORE DBRA ADDRESS 
6073 003314 112760 000001 000001 MOVB #B{T0,1(RO) [SET CSRA IN OUTPUT MODE 


ee ee Cee e 
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CNDRCA.P11 —- 10=DEC=82 14: TEST DBRA W/R IN OUTPUT MODE SEQ 0017 
6074 003322 011337 001124 1$: MOV (R3) ,SGDDAT sSAVE EXPECTED DATA 
6075 003326 903011 CLR (R1) CL 
607 0033 0 051311 BIS (R3),(R1) [WRITE INTO DBRA 
6077 003332 011115 MOV (R1)-(R5) : 

A078 003334 023715 001124 CMP SGDDAT, (RS) [CHECK W/R DBRA 
6079 003340 001401 BEQ $ [NEXT PAT. IF EQUAL 
6080 003342 lounge ERROR [DBRA W/R ERROR 
6081 003344 00572 2$: TST (R3)¢ SINC FOR NEXT PATTERN 
6082 003346 020327 013464 CMP R3,#ENDDAT [CHECK FOR END 
6083 003352 001363 BNE 1$ :DQ NEXT PATTERN 
6085 FF AAAAAAARAAEEAARAREREAE EERE AEEORAAREREREEREERERERAAEEREREREREEEE 
(3) T*TEST 11 TEST DBRB W/R IN OUTPUT MODE 
(3) sg RRARAAAAAEERIREAEEAEEEEAERAEEAAARARARERERAREEAEEAEEEEEREREERERE 
(3) 003354 000004 TST11: SCOPE 
6086 003356 004737 013056 JSR PC,CLRCSR ZCLEAR ALL CSRS 
6087 003362 012703 013164 MOV #BEGPAT R3 sGET DATA PATTERN TABLE 
6088 003366 012737 003416 001110 MOV #1$, SLPERR TSET UP SCOPE ADDRESS 
6089 003374 013700 001346 MOV DRCSB,RO [GET CSRB 
6090 003400 013701 001350 MOV DRDBB,R1 [GET DBRB ADDRESS 
6091 003404 010137 001122 MOV R1,$BDADR ‘STORE DBRB ADDRESS 
6092 003410 112760 000001 000001 MOVB #BiTO,1(RO) :SET CSRB IN OUTPUT MODE 
6093 003416 611337 001124 1$: MOV (R3) , $GDDAT SSAVE EXPECTED DATA 
6094 003422 005011 CLR (R1) : DBRB 
6095 003424 051311 BIS (R3),(R1) [WRITE INTO DBRB 
6096 003426 011115 MOV (R17), (R5) TREAD DBRB 
6097 0054 025715 001124 CMP SQDDAT. (RS) [CHECK W/R DBRB 
6098 34 001401 BEQ “NEXT PAT. IF EQUAL 
6099 003436 104008 ERROR [DSRB W/R ERROR 
6100 003440 00572 2$: TST (R3)¢ SINC FOR NEXT PATTERN 
6101 003442 020327 013464 CMP R3,#ENDDAT SCHECK F 
6108 003446 001363 BNE 1$ [D0 NEXT PATTERN 
104 
airs J FUROR AAAAAAAAAAAAAAERAKAAERAEAAAEEAAAAERAAAEEAAEAARAEEAREEEEREEEE 
(3) T*TEST 12 TEST DBRC W/R IN OUTPUT MODE 
(3) SRE AAAAEKAAAAAAAAREATAKEKTAATASAAAAAEAARAAAAAEAAAAEAEEAAAEAAAERAERAEEE 
(2) 003450 000004 T$112: SCOPE 
6106 003452 004737 013056 JSR PC,CLRCSR ICLEAR ALL CSRS 
6107 003456 01 703 13164 MOV #BEGPAT,R3 [GET DATA PATTERN TABLE 
6108 005462 01273 3312 001110 MOV #1$, SLPERR [SET UP SCOPE ADDRESS 
6109 003470 013700 00135 MOV DRCSC,RO GET CSRC 
6110 003474 013701 001354 MOV DRDBC,R1 [GET DBRC ADDRESS 
6111 003500 010137 001122 MOV R1 SB0ADR [STORE DBRC ADDRES 
61g 003504 1127 1 000001 MOVB eit 1(RO) ‘SET CSRC IN OUTPUT MODE 
611 3512 011337 001124 1$: MOV (R3) , $GDDAT SSAVE EXPECTED DATA 
6114 003516 005011 CLR (R1) [CLEAR DBRC 
6115 3520 051311 BIS (R3), (R1) [WRITE INTO DBRC 
6116 3522 011115 MOV (R17). (R5) [READ DBRC 
611 3524 02371 001124 CMP GDDAT, (RS) [CHECK W/R DBRC 
6118 0035 1401 $ [NEXT PAT. IF EQUAL 
6119 003532 104002 ERROR SDBRC W/R ERROR 
6120 3534 0057 ; 28: TST (R3)¢ SINC FOR NEXT PATTERN 
6121 003536 020327 013464 CMP R3,#ENDDAT [CHECK FOR END 


ee ree 


eee ee ee eee ee 
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CNDRCA DRV11J_ DIAG TST P He MACY11 30(1046) 15=DEC=82 15:25 PAGE 57-16 


! 
| 
) 003544 
6126 00354 
6127 00355 
6128 003556 
564 


‘CNDRCA.P11 —-10=DEC=82 14:37 T12 TEST DBRC W/R IN OUTPUT MODE SEQ 0018 
| 6122 003542 001363 BNE 1$ :D0 NEXT PATTERN 
| 6126 
gist FRMAAAAAAAAAAAAAAEAHHAA AHA AERA AAAAAAAAAKEKERAKARAAAEAAEKE EES 
(3) STEST 13 TEST DBRD W/R IN OUTPUT MODE 
(3) SREFRARERARAEARAERAAAAREKATKAEKEREKARAEAAEARARAARAEAARARAAAAEEARERARAEEKRERERAE 
000004 ‘8113: SCOPE 
004737 013056 JSR PC, CLRCSR CLEA AR ALL CSRS 
012703 013164 MOV #BREGPAT,R3 [GET DATA PATTERN TABLE 
012737 003606 001110 MOV #1$,SLPERR [SET UP SCOPE ADDRESS 
6129 003 013700 001356 MOV DRCSD,RO :GET CSRD 
6130 003570 013701 001360 MOV RDBD,R1 GET DBRD 
6131 003574 010137 001122 MOV R1, $BDADR SSTORE DBRD ADDRESS 
6132 003600 112760 000001 000001 MOVB #BiTO,1(RO) TSET CSRD IN OUTPUT MODE 
6133 003606 011337 001124 1$: MOV (R3) ,$GDDAT SSAVE EXPECTED DATA 
6134 003612 005011 CLR (R1) [CLEAR DBRD 
6135 003614 051311 BIS (R3), (R1) 3WRITE INTO DBRD 
6136 003616 011115 MOV (R1).(R5) AD DBRD 
6137 003620 023715 001124 CMP $GDDAT, (RS) TCHECK W/R DBRD 
6138 003624 001401 BEQ 2$ [NEXT PAT. IF EQUAL 
6139 003626 10400. ERROR 2 ;DBRD W/R ERROR 
6140 0036 00572 23: TST (R3)+ sINC FOR NEXT PATTERN 
6141 003632 020327 013464 CMP R3,#ENDDAT [CHECK FOR END 
6142 003636 001363 BNE 18 [D0 NEXT PATTERN 


| G 2 
CNDRCA DRV11J_ DIAG TST PRT MACY11 30(1046) 15=DEC-82 15:25 PAGE 58 


'CNDRCA.P11 =: 10=DEC=82 14:37 113 TEST DBRD W/R IN OUTPUT MODE SEQ 0019 
greg 
| ot? SF AAAAAAAAAAAAAA AA CHEEAAEE EEE RAAAAAAAAAEEREREAEEEKEAEHEREEENEEE 
| ¢3) S*TEST 14 TEST CSR UNIQUENESS,CSRS (A-B), (CD) 
(3) * RRRAAAAAAAAATEAAARAAEEAEKETAAERAAEARARARARAARAAARAERAEARAEEAAEAAEEE 
(2) 003640 000004 TST14: SCOPE 
| 6127 003642 004737 013056 JSR PC,CLRCSR ICLEAR ALL CSRS 
6148 'CSRA = RO 
6149 ;CSRB = R1 
6150 :CSRC = Re 
| 6151 ?CSRD = R 
6152 003646 112760 000003 000001 MOVB «#3, 1 (RO) sCSRA OUTPUT MODE,1/E 
6153 003654 112763 000001 000001 MOVE #BITO,1(R3) :CSRD OUTPUT MODE 
6154 00 010037 001122 MOV RO, $BDADR 
| 6155 00 012737 101700 001124 MOV #101700,$GDDAT ;EXPECTED DATA 
6156 003674 011015 MOV (RO), (R5) 
6157 00367 042715 000007 BIC a7, ZCLEAR UNDEFINED BITS 
| 6158 003702 023715 001124 CMP —s- $GDDAT, (RS) 
6159 003706 001401 BEQ 1$ 
6160 003710 104002 ERROR 2 ZCSRA ERROR 
6161 003712 010137 001122 1$: MOV R1,$BDADR :CHECK CSRB 
62 003736 005037 001124 CLR SGDDAT 
6163 002722 011115 MOV (R71), (RS) 
164 003724 023715 001124 CMP SGDDAT, (RS) 
6165 093730 001401 BEQ $ 
6166 03732 10400¢ ERROR 7CSRB LRROR 
6167 003734 01055 1122 2s: MOV R3,$BDADR 
6168 003740 012737 1 001124 MOV ai SGDDAT 
6169 003746 011315 MOV (R3), (R5) 
6170 003750 023715 001124 CMP SGDDAT, (RS) 
6171 003754 001401 BEQ $ 
6172 003756 104002 ERROR :CSRD ERROR 
6173 003760 01023 001122 38: MOV R2,SBDADR SCHECK CSRC 
6174 003764 012737 000200 001124 MOV welt «SGdDAT TEXPECTED 
6175 003772 011215 MOV (R2), (RS) 
6176 003774 042715 000007 BIC #7, (RS) 
6177 004000 023715 001124 CMP SGDDAT, (RS) 
6178 004004 001401 BEQ TST15 ::BR IF EQUAL 
6179 004006 104002 ERROR 2 :CSRC ERROR 
6181 FFARR AAAAAAAAAAAAAAAAAAAATAA AERA AAEAAAERAEEATAEENES LARKEKEEREEEe 
(3) S*TEST 15 TEST CSR UNIQUENESS,CSRS (A=D), (C8) 
(3) SFRRAeAeAReAAeHeAATEAAEAAEKEAAHAAARAAAAKRAAREAAARAARAeReKeeReees 
(2) 004010 000004 TST15: SCOPE 
6182 004012 004737 013056 JSR PC,CLRCSR ICLR ALL CSRS 
6183 SCSRA = RO 
6184 :CSRB = R1 
6185 :CSRC = Re 
6186 [CSRD = R 
6187 004016 112760 900005 000001 MOVB =: #3, 1(RO :CSRA OUTPUT, I/E 
6188 004024 112761 01 000001 MOVB #B1T0,1(R1) $CSRB OUTPUT MODE 
6189 004032 010037 001122 MOV RO $BDADR [CSRA ADDRESS 
6190 004036 012737 101700 001124 MOV #101700, $GDDAT 
6191 004044 011015 MOV (RO), (R5) 


| 
| 
| 
| 
| 
| 
| 
| 


r-——_—_--- ---- ---- + - + ++ >> 


=DEC-82 15:25 PAGE 58-1 
T CSR UNIQUENESS,CSRS (A=D),(C-8) 


#7, (R5) :CLEAR UNDEFINED BITS 
SGODAT, (RS) 

R1,$BDADR :CHECK CSRB 
#100400, $GDDAT 

(R71), (R5) 

SGDDAT, (RS) 

$ :CSRB ERROR 
R2,$BDADR SCHECK CSRC 
#B1T7,$GDDAT 

(R2),¢R5) 

#7, (R5) 

SGHDAT. (R5) 

2 :CSRC ERROR 
R3,$BDADR 

SGDDAT 

(R3),(R5) 

S$GDDAT, (RS) 

TST16 z:BR IF EQUAL 


sCSRD ERROR 


FERRARA AAAAAAAAAAAERE AEE EREEERAAAAEREEEAAEREAERERERAEKERARREEREE 


CNDRCA DRV11J DIAG TST PRT1 =MACY11 30(1046) 15 

CNDRCA.P11 10=DEC=82 14:37 T15 TES 

| 6192 00404 042715 000007 BIC 
6193 004052 023715 001124 CMP 

| 6194 004056 001400 BEQ 

| 6195 004060 010137 001122 1$: MOV 
6196 004 012737 100400 001124 MOV 
6197 004072 011115 MOV 
6198 004074 023715 001124 CMP 
6199 004100 001401 BEQ 
6200 004102 104002 ERROR 
6201 004104 010237 001122 2$: MOV 
6202 004110 012737 000200 001124 MOV 
6203 004116 011215 MOV 

| 6206 004120 042715 BIC 
6205 004124 023715 001124 CMP 
6206 004130 001401 BEQ 
6207 004132 104002 ERROR 
6208 004134 010337 001122 3$: MOV 
6209 004140 005037 001124 CLR 
6210 004144 011315 MOV 
6211 004146 023715 001124 CMP 
6212 004152 001401 BEQ 
6213 004154 104002 ERROR 
6214 
6215 
6216 

(3) T*TEST 16 
(3) 004156 006004 TST16: SCOPE 

6217 004160 004737 013056 JSR 
6218 004164 012703 013164 MOV 
6219 004170 012737 004220 001110 MOV 
6220 004176 013700 001 342 MOV 
6221 004202 013701 00135 MOV 
6222 004206 013762 001346 MOV 
6223 004212 112762 000001 000001 MOVB 
6224 004220 010037 001122 1$: MOV 
6225 004224 005062 000002 CLR 
6226 004230 105061 000001 CLRB 
6227 004234 112760 000001 000001 MOVB 
6228 d04e42 011360 000002 MOV 
6229 004246 016104 000002 MOV 
6230 004252 012737 100700 001124 MOV 
6232 004260 011015 MOV 
6233 004262 042715 00000 BIC 
6234 004266 023715 001124 CMP 
6235 004272 001401 BEQ 
6236 004276 104008 ERROR 
6237 004276 0127 000200 001124 1008: MOV 
6238 004 10137 001122 MOV 
6239 004310 11115 MOV 
6240 00431 ¢713 BIC 
6241 004316 23715 001124 CMP 
6248 00432 1403 BEQ 
6243 004324 104002 ERROR 


TEST PORT A TO PORT C INTERACTION 


SEERA AAAAAAAEAAAAARAAAAAEAEREEAAAEAAEAAEAAAERERAEEEREREREREREREEEEREE 


PC, CLRCSR :CLEAR ALL CSRS 
#BEGPAT,R3 ?GET DATA PATTERN TABLE 
#1$,SLPERR :SET UP SCOPE ADDRESS 
DRCSA,RO :GET PORT A, CSRA ADDRESS 
DRCSC.R1 [GET PORT C. CSRC ADDRESS 
DRCSB.R2 [CSRB ADDRESS 
#B1T0.1(R2) :CSRB_IN OUTPUT MODE 
RO SB0ADR SSTORE CSRA ADDRESS 
2(R2) [CLEAR DBRB 
1(R1) SPORT C,CSRC,INPUT MODE 
#B81T0,1(RO) SSET CSRA IN OUTPUT MODE 
(R3) ,2(RO) SWRITE INTO DBRA 
2(R15,R4 “READ DBRC 
ARDY 'OIR!BIT7!B116, $GDDAT 

:CSRA DIR SHOULD STAY SET 
(RO), (RS) TREAD CSRA 
47, (R5) [CLEAR UNDEFINED BITS 
SGDDAT, (RS) 
100$ 
2 3CSRA ERROR 
#8117, $GDDAT 
R1,$BDADR :CSRC ADDRESS 
(91), (R5) sREAD 
#7, (R5) [CLEAR UNDEFINED BITS 
SGHDAT.(R5) 
101$ 
2 ICSRC ERROR 


SEQ 0020 


CNDRCA DRV1I1J DIAG TST 
10=DEC-82 


CNDRCA.P11 
6244 004326 
6245 004334 
6246 004340 
6247 004342 
6248 004346 
6249 004350 
6250 004352 
6251 
6252 004356 
6253 004364 
6254 004372 
6255 004376 
6256 004404 
6257 004410 
6258 004414 
6259 004416 
6260 004420 
6261 004426 
6262 0044 
6263 004436 
6264 004442 
6265 004444 
6266 004446 
6267 004450 
6268 00445 
6269 
6270 
6271 

(3) 

(3) 

(2) 004456 

(2) 
6272 004460 
6273 004464 
6274 004470 
6275 004476 
6276 004502 
6277 004506 
6278 004512 
6279 004520 
6280 004524 
6281 0045 
6282 004534 
6283 004542 
6284 004546 
6285 004552 
6286 004560 
6287 004562 
6288 004566 
6289 004570 
6290 004572 
6291 906278 
Oss 00460 
6293 004604 
6294 Bees 
6295 00461 
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MACY11 30(1046) 
T16 


001122 


001122 
000002 


000001 


001122 


001110 


000001 


000001 


001124 


15=D 
TEST 
101$: MOV 

MO 


2s: COM 


3$: MOV 


4$: 


5$: TST 


S  REAEEEAEEAAAAEAAAAAEAAETAAAAAAAAAERAERAAAAAAERAAEAAAAAAAAREAAEREEE 


S*TEST 17 


SS EERAAAAAAEAAAAAAAAAAEATAEAAAERARAAAAAARARAAAAAAAAAAARAAEARAREERAEEE 


TST17: SCOPE 


1$: MOV 


100$: CLR 


EC-82 15:25 
PORT A TO PORT C INTERACTION 


DRDBC, $BDADR 
(R3) , $GDDAT 


R4,(R5) 
SGDDAT, (RS) 
$° 

SGDDAT 


DRDBA, $BDADR 
SGDDAT,2(R1) 
1(RO) 


#81T0,1(R1) 
2(RO) . (RS) 
SGDDAT, (RS) 
4s 

DRDBB, SBDADR 


2(R2), (RS) 
SGDDAT. (R5) 


(R3)+ 
” Cotatmnaned 


Pact 58-2 


STORE DBRC_ ADDRESS 
aeaye EXPECTED 


SDBRC REG ERROR 
SSET UP TO WRITE COM DATA FROM 
[PORT C TO PORT A 

TSTORE DBRA ADDRESS 
SWRITE PORT C, INPUT MODE 

[MAKE PORT A INPUT MODE 

[MAKE PORT C OUTPUT MODE 

TREAD PORT A,DBRA 

SPORT A =PORT C? 

[CHECK DBRB FOR NO DATA CHANGE 
;PORT A-DBRA REG ERROR 


sYES.CON 

:DBRB INTERACTION ERROR 
: INC FOR NEXT PATTERN 
sCHECK FOR END 

3D0 NEXT PATTERN 


TEST PORT B TO PORT D INTERACTION 


PC,CLRCSR 
#BEGPAT,R3 
#1$,SLPERR 

RO 
DRCSA.R2 
#B1T0,1(R2) 
RO, $BDADR 
2(R2 


(Ri), (RS) 
$oDDAT, (RS) 
} 1$ 


sCLEAR ALL CSRS 

GET DATA PATTERN TABLE 
sSET UP SCOPE ADDRESS 
3GET PORT B, CSRB ADDRESS 
GET PORT SRD 
sSTORE CSRA AD 
sCSRA_IN OUTPUT MO 
STORE CSRB ADDRESS 
; DBRA 


CL 
SPORT D,CSRD,INPUT MODE 
[SET CSRB IN OUTPUT MODE 
[WRITE INTO DBRB 

; CONTENTS 

TSAVE EXPECTED 
TREAD CSRB 


zCSRB ERROR 
sSAVE EXPECTED 


zSAVE CSRD ADDRESS 


zCSRD ERROR 


SEQ 0021 
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2S 
FS 


sscc 
OO = @ WW 
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mov AS 
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se 
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S3 
= 
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MACY11 30(1046) 
T17 


001122 
001122 
000002 
000001 


001122 


001110 
000001 


000001 


001124 


001124 


a a 3 ee ee 


101$: MOV DRDBD,$BDADR =; SAVE DBRD ADDRESS 
MOV (R3) ,$GDDAT SSAVE EXPECTED 
MOV R4, (RS) [DBRD CONTENTS 
CMP SGDDAT, (RS) :CHECK PORT D,DBRD 
BEQ $ 'BEQ TO NEXT SUBTEST 
ERROR [DBRD REG ERROR 
2$: COM $GDDAT [SET UP TO WRITE COM DATA FROM 
; D TO PORT B 
MOV DRDBB,$BDADR §§ :STORE DBRB ADDRESS 
3$: MOV $GDDAT,2(R1)  :WRITE PORT D, INPUT MODE 
CLRB =: 1(RO) :MAKE PORT 8 INPUT MODE 
VB  #B1T0,1(R1) SMAKE PORT D OUTPUT MODE 
MOV 2(RO).(R5) SREAD PORT B,DBRB 
CMP $GDDAT, (R5) SPORT B =PORT D? 
BEQ 4$ SCHECK DBRA FOR NO DATA CHANGE 
ERROR 2 [PORT B,DBRB REG ERROR 
4$: MOV DRDBA,SBDADR § :STORE DBRA ADDRESS 
CLR DDAT :CONTENTS = 
MOV 2(R2), (RS) [READ DBRA FOR CLEAR 
CMP SGDDAT, (R5) [DBRA CLEAR? 
BEQ 5$ YES, CONT INUE 
ERROR 2 SDBRA INTERACTION ERROR 
5$: TST (R3)+ ZINC FOR NEXT PATTERN 
CMP R3,#ENDDAT [CHECK FOR END 
BNE 1$ [D0 NEXT PATTERN 
FF RARER AEAAEAEAAEAAEA AAA EAE AERA EAEAEAEEEAAEEREREEAREREEEEEE 
T*TEST 20 TEST PORT C TO PORT A INTERACTION 
© REEAAAEAAAEAAAAERAAETEAATAEAAAAAAAAAARAAAAAAARARAAARARAEAEAEAREREE 
T$T20: SCOPE 
JSR PC,CLRCSR :CLEAR ALL CSRS 
MOV #BEGPAT,R3 ?GET DATA PATTERN TABLE 
MOV #1$,SLPERR ZSET UP SCOPE ADDRESS 
MOV DRCSC,RO 3GET PORT C, CSRC ADDRESS 
MOV DRCSA,R1 3GET PORT A, CSRA ADDRESS 
MOV DRCSD.R2 SSTORE CSRD ADDRESS 
MOVB #BIT0,1(R2) [CSRD IN OUTPUT MODE 
1$: MOV RO $B0ADR TSTORE CSRC ADDRESS 
CLR eck ) 3¢ DBRD 
CLRB (R1) SPORT A,CSRA,INPUT MODE 
MOVB #B1TO,1(RO) :SET CSRC IN OUTPUT MODE 
MOV (R3) ,2(RO) SWRITE INTO DBRC 
MOV 2(R15, RG “READ DBRA 
MOV @RDY!OIR!BIT7, SGDDAT 
3CSRC DIR SHOULD BE SET 
MOV (RO), (RS) SREAD CSRC 
BIC #7, (R5) [CLEAR UNDEFINED BITS 
CMP SCHDAT. (RS) 
PRROR } . CSRC ERROR 
100$: MOV #8117!B1T6,$GDDAT 
MOV R1,$BDADR :CSRA ADDRESS 
MOV (R1), (R5) 


J 2 
15=DEC-82 15:25 PAGE 58-3 
TEST PORT B TO PORT D INTERACTION 


: SRA 
BIC #7, (R5) [CLEAR UNDEFINED BITS 


SEQ 0022 


Lconra”"teaaiia htee Gar tant tiaaiik carla Sesame Gas hel 
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CNDRCA.P11 —-10=DEC=82 14:37 TEST PORT C TO PORT A INTERACTION SEQ 0023 
6348 005104 023715 001124 CMP SGDDAT, (RS) 
6349 005110 001401 BEQ 101$ 
6350 005112 104 é ERROR 2 :CSRA ERROR 
6351 005114 013737 001344 001122 101$: MOV DRDBA,$BDADR § :STORE DBRA ADDRESS 
6352 005122 011337 001724 MOV (R3) , $GDDAT SSAVE EXPECTED 
6353 005126 010415 MOV R4, [DBRA CONTENTS 
6354 005130 023715 001124 CMP SGDDAT, (RS) [CHECK PORT A,DBRA 
6355 005134 001401 BEQ $ :BEQ TO NEXT SUBTEST 
6356 005136 104002 ERROR SDBRA REG ERROR 
6337 005140 005137 001124 2s: COM SGDDAT :SET UP To WRITE COM DATA FROM 
6359 005144 013737 001354 001122 MOV DRDBC,$BDADR  :STORE DBRC ADDRESS 
6 005152 013761 001124 000002 3S: MOV S$GDDAT,2(R1) | :WRITE PORT A, INPUT MODE 
6361 005160 105060 000001 CLRB  —«- 1¢RO) :MAKE PORT C INPUT MODE 
005164 112761 000001 000001 MOVB  #BITO,1(R1) SMAKE PORT A OUTPUT MODE 
6363 005172 016015 000002 MOV 2(RO). (RS) TREAD PORT C,DBRC 
364 005176 023715 001124 CMP SGDDAT, (RS) SPORT C = A? 
6365 005202 001401 BEQ 4$ SCHECK DBRD FOR NO DATA CHANGE 
005204 104002 ERROR 2 SPORT C,DBRC REG ERROR 
6367 005206 013737 001360 001122 4$: MOV DRDBD,SBDADR  :STORE DBRD 
005214 005037 001124 CLR DDAT [DBRD = 0 EXPECTED 
6369 005220 016215 000002 MOV 2(R2), (RS) TREAD DBRD FOR CLEAR 
6370 005224 023715 001124 CMP SCDDAT, (RS) :1$ DBRD CLEAR? 
6371 005230 001401 BEQ 5 YES, CONTINUE 
6372 005232 104002 ERROR 2 :DBRD INTERACTION ERROR 
6373 005234 00572 5$: TST (R3)¢ SINC FOR NEXT PATTERN 
6374 005236 020327 013464 CMP R3,#ENDDAT [CHECK FOR END 
6375 005242 00126 BNE 13 [D0 NEXT PATTERN 
6377 3 3 REAAAAAAAAAAA* (SAKATA AAATAAAAAAAAARAAAAARAARAAAAAAAAAERARARERAAAEEE 
(3) S*TEST 21 (EST PORT D TO PORT B INTERACTION 
(3) . Z TEAK ATAAASTAAAATAAAEAAATATAEEKESAAAAAEAAARAAAAAARAEAERAEAFEAEEAEEEEAREEE 
33 005244 000004 TS$T21: SCOPE 
6378 005246 004737 013056 JSR PC, CLRCSR :CLEAR ALL CSRS 
6379 00525 012703 013164 MOV #BEGPAT,R3 [GET DATA PATTERN TABLE 
6380 005256 127 7? 005306 001110 MOV #1$, SLPERR :SET UP SCOPE ADDRESS 
6381 0052 13700 001356 MOV DRCSD,R :GET PORT D, CSRD ADDRESS 
6382 005 13701 1346 MOV DRCSB.R1 [GET PORT B, CSRB ADDRESS 
6383 005274 01370 135 MOV DRCSC.R2 TSTORE CSRC ADDRESS 
6384 005 M127 1 000001 MOVB #B1T0,1(R2) :CSRC_ IN OUTPUT MODE 
6385 005 1 11 1$: MOV RO R SSTORE CSRD ADDRESS 
6386 00531 5062 CLR eck ) 3 DBRC 
6387 005316 105061 CLRB (R1) [PORT B,CSRB,INPUT MODE 
6388 005 112760 1 000001 vB IT 1(RO) [SET CSRD IN OUTPUT MODE 
6389 0053 11360 MOV (R3),2(RO) [WRITE INTO DBRD 
6390 005334 16104 MOV 2(R15,R4 3 DBRB 
6391 005340 012737 100400 001124 ARDY'OIR,SGDDAT :SAVE EXPECTED 
639 5 11015 MOV (RO), (RSS TREAD CSRD 
639 33 3715 001124 CMP DDAT, (RS) 
$298 3 26 1 1803 PRROR CSRD ERROR 
659% 005 S037 001124 1008: CLR Scppar SSAVE EXPECTED 
6397 005 10137 001122 MOV Ri SBDADR [SAVE CSRB ADDRESS 
6398 905 11115 MOV (R1), (RS) 
6399 005 23715 001124 CMP SGDDAT, (RS) 
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001122 1018: 


2$: 
001122 
000002 3$: 
000001 


001122 4$: 


5$: 


15=D 
TEST 


s*TEST 22 


t§122: 


1118: 
001124 


1$: 


2$: 


SCOPE 


EC=82 15:25 bace 58-5 
PORT D TO PORT B INTERACTION 


101$ 


DRDBB, $BDADR 
(R5)  $GDDAT 


R4, ( 
SGDDAT, (RS) 
GDDAT 
DRDBD, SBDADR 
SGDDAT,2(R1) 
1(RO) 
#B1T0,1(R1) 
2(RO).(R5) 
SGDDAT, (RS) 
4s 
DRDBC, SBDADR 


2(R2), (RS) 
SDDAT, (RS) 


(R3)+ 
| etree 


sCSRB ERROR 

sSAVE DBRB ADDRESS 
sSAVE EXPECTED 
:DBRB CONTENTS 


:DBRB REG OR 
+4 8 WRITE COM DATA FROM 


3POR 

STORE DBRD ADDRESS 
sWRITE 
MAK 


YES, CONTINUE 
SDBRC INTERACTION ERROR 
SINC FOR NEXT PATTERN 
[CHECK FOR END 

:DO NEXT PATTERN 


fF RAAAA AERA EAAAAAAA AAA EAAEEAAEAAAAEEAERAAERAAEEEAEEEEEREEEAAEEE 


TEST GROUP 1,2 IMR, IRR,ACR WITH CHIP RESET 


S REESE EAAAEEEAAAAAAAAATESAAAAAAAAAAKARAERAERERARAAAAAARAAEARERAERAEE 


Pc oc RCSR 
#2-R 
DRCSA, RO 


#MIMR, ( 
(R1), (RS) 
SGDDAT, (RS) 


$GDDAT 
#MIRR, (RO) 
(R71), (RS) 
GDDAT, (RS) 
#MACR, (RO) 
(R71), (RS) 
SoDDAT. (R5) 


4 


CLEAR ALL CSRS 

TWO GROUPS TO TEST 
sSTORE CSRA 

sSTORE CSRB 

CLEAR IRR REGISTERS 
sSTORE ADDRESS 
sSTORE EXPECTED DATA 
sLOAD MODE BITS FOR IMR 
sREAD IMR REGISTER 


zIMR REG ERROR 
sSTORE EXPECTED 
LOAD BITS FOR IRR 


zIRR_ REG ERROR 
zLOAD MODE BITS FOR ACR 
sREAD ACR REGISTER 


zACR REG ERROR 


SEQ 0024 


| 
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001124 


001124 


3$: 


Ld 
15=DEC-82 15:25 PAGE 58-6 
TEST GROUP 1,2 IMR,IRR,ACR WITH CHIP RESET 


sFINISHED BOTH GROUPS? 
IF EQUAL 


SS EAERHRAEAAEAEAEAEEEEAEEEREEAEEAAAARAREAAAAEAAAAAAEAAAEREREEAEREE 


T*TEST 23 


T§T23: 


1118: 


18: 


2s: 


3$: 


4$: 


5$: 


SCOPE 


TEST GROUPS 1 AND 2 ACR UNIQUENESS 


Sf RRRARARAEAAAEAEREREEEEE AREER AAA ERA AAEEEEAEAEERAEEEAEEEREEEEEE 


PC,CLRCSR 
DRCSA,RO 
DRCSB,R1 


#2, 
PC,CLRIRR 


#MACR, (R 
#PACR. (RO) 
SGDDAT, (R1) 
(R71), (RS) 

SGDDAT, (RS) 


amIMR RO) 
#377 ,SGDDAT 
(R171); (RS) 
SGDDAT, (RS) 


antse (0) 


A 
(R171), (RS) 
serene S89) 


(R1), (RS) 
SoDDAT. (RS) 


CLEAR ALL CSRS 

sCSRA ADDRESS 

3CSRB_ADDRESS 

COUNTER FOR TESTING TWO GROUPS 
CLEAR IRR REGS WITH CHIP RESET 
sSTORE ADDRESS 

4 ph es EXPECTED 


sWRITE INTO 
sSTORE DATA FOR 
CHECK ACR RESULTS 


3ACR ERROR 

;CHANGE TO IMR REGISTER 
sSTORE EXPECTED 

sR IMR 

sSHOULD STILL BE ALL 1°S 
IMR REG ERROR 

;LOAD MODE BITS FOR ISR 
sSTORE EXPECTED 

sREAD ISR 

3I1SR SHOULD BE CLEARED 


zI1SR_REG ERROR 
sLOAD MODE BITS FOR IRR 
RE RR 


TIRR SHOULD BE CLEARED 
ZIRR REG ERROR 

[CHIP RESET GROUP 1 
;LOAD MODE BITS FOR ACR 
SACR SHOULD BE CLEARED 
ZACR REG ERROR 


zTEST GROUP AND 2 
;;BR IF _BOTH GROUPS TESTED 
ROL PORT 


GROUP g CONT 
?GROUP 2 DATA PORT 
STEST GROUP 2 ACR UNIQUENESS 


MEAAAAALALALALE LEAL AALS ALARA RARE TERRE RRR RRR ERE OS 


TRTEST 24 





TEST GROUPS 1 AND 2 IMR UNIQUENESS 


SEQ 0025 
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N 2 
DRV11J_ DIAG TST PRTI MACY11 30(1046) 15=DEC=82 15:25 PAGE 58-7 
CA.P11 10=DEC=82 14:37 T24 


TEST GROUPS 1 AND 2 IMR UNIQUENESS SEG 0026 
MOR AAAAAZAAALALALLALALALALE LALA S ELE LEE EEE RRR RT RT eT TTT TPT a 
006076 000004 T§T24: SCOPE 
z:GPA JSR PC, CLRCSR :CLEAR ALL CSRS 
006100 004737 01312 JSR PC-CLRIRR i; *** VDRCAT CHANGES THIS *** ;;GPA 
006104 013700 00134 MOV DRCSA,RO sCSRA ADDRESS 
006110 013701 00134 MOV DRCSB,R1 'CSRB ADDRESS 
006114 012703 00000 MOV #2, SCOUNTER FOR TWO GROUP TESTING 
006120 010137 00112 111$: MOV R17. $BDADR SSTORE ADDRESS 
006124 012737 000252 001124 MOV #252, $GDDAT sSTORE EXPECTED 
006132 113710 000244 MOVB = #MIMR, (RO) [LOAD MODE BITS FOR IMR 
006136 112710 000260 MOVB = #PIMR. (RO) SPRESELECT IMR FOR WRITING 
006142 113711 001124 MOVB $GDDAT, (R1) sWRITE INTO DATA PORT 
006146 111115 MOVB = (R1),, (RS) [STORE DATA FOR COMPARE 
006150 023715 001124 CMP SGDDAT, (RS) [CHECK IMR RESULTS 
006154 001401 BEQ 1$ ; 
006156 104005 ERROR 5 SIMR ERROR 
006160 112710 000254 1$: MOVB  #MACR, (RO) [CHANGE TO ACR REGISTER 
006164 005037 001124 CLR SGDDAT SSTORE EXPECTED 
006170 111115 MOVB = (R1), (RS) TREAD ACR 
006172 023715 001124 CMP S$GDDAT, (RS) SSHOULD STILL BE CLEARED 
006176 001401 BEQ 2$ 
006200 104004 ERROR 4 ZACR REG ERROR 
006202 112710 000240 2$: MOVB #MISR, (RO) SLGAD MODE BITS FOR ISR 
006206 111115 MOVB = (R1),, (R5) TREAD ISR 
006210 023715 001124 CMP SGDDAT, (RS) [ISR SHOULD BE CLEARED 
006214 001401 BEQ 3$ 
006216 104006 ERROR 6 ZISR_ REG ERROR 
006220 112710 000250 3$: MOVB #MIRR, (RO) [LOAD MODE BITS FOR IRR 
006224 111115 MOVB (R1),, (RS) TREAD IRR 
006226 023715 001124 CMP SGDDAT, (RS) [IRR SHOULD BE CLEARED 
006232 001401 BEQ 4$ 
006234 104003 ERROR 3 sIRR REG ERROR 
006236 105010 48: CLRB = (RO? SCHIP RESET GROUP 1 
006240 112710 000244 MOVB  #MIMR, (RO) [LOAD MODE BITS FOR IMR 
006244 012737 000377 001124 MOV #377, $GDDAT [STORE EXPECTED 
52. 111115 MOVB - sREAD I 
006254 023715. 001124 CMP S$GDDAT, (RS) SIMR SHOULD BE ALL ONES 
906260 001401 BEQ 5$ [D0 NEXT GROUP 
62 104005 ERROR 5 SIMR REG ERR 
006264 005303 S$: DEC R3 :D0 GROUPS 1 AND GROUP 2 
006266 001405 BEQ $125 +:BR IF BOTH GROUPS TESTED 
270 013700 001352 MOV DRCSC,RO :SET UP TO TEST GROUP 2 
74 013701 001356 MOV DRCSD,R1 [GROUP 2 DATA PORT 
300 000707 BR 111$ [D0 GROUP 2 IMR UNIQUENESS 
FF RARER EEE EEE AEE AAE AEA AEA AEREAEEAEEEEAEREREEEE 
S*TEST 25 TEST GROUPS 1 AND 2 IRR UNIQUENESS 
RSE AAEAAAAAAAEAEAASTAAEAATAASEAAAAAARAREREARAAEARERERAEEAAAAREAREEAEEAEE 
006302 000004 7125: SCOPE 
006304 004737 01305 JSR PC,CLRCSR 7CLEAR ALL CSRS 
006310 013700 Si $ MOV DRESA,RO SCSRA ADDRESS 
$0083 O13 73 $00 $ nov BR _ cCSURITER FOR TESTING TWO GROUPS 
Boe aoe goa aeP SEES JSR PC; CLRIRR SCLEAR IRR REGS WITH CHIP RESET 


| 
| CNDRCA DRVITJ D 


B 3 
IAG TST PRT1. = MACY11 30(1046) 15=DEC-82 15:25 PAGE 58-8 
CNDRCA.P11 10=DEC=82 14:37 T25 TEST GROUPS 1 AND 2 IRR UNIQUENESS SEQ 0027 
655 906330 010137 00112 111$: MOV R1,$BDADR sSTORE ADDRESS 
6553 006334 012737 000200 001124 MOV #200, $GDDAT SSTORE EXPECTED 
6554 006342 112710 0002 MOVB #MIRR (ROD *LOAD MODE BITS FOR_IRR 
6555 006 : 112710 000137 MOVB «#137, (RO) SSET SINGLE IRR BIT7 
6556 006352 111115 MOVB (R17), (RS) *STORE DATA FOR COMPARE 
6557 006354 023715 001124 CMP SGDDAT, (RS) SCHECK IRR RESULTS 
6558 006360 001401 BEQ 1$ : 
6559 006362 104003 ERROR 3 TIRR ERROR 
6560 006564 112710 000244 1$: MOVB = #MIMR, (RO) [CHANGE TO IMR REGISTER 
6561 006370 012737 000377 001124 MOV #377, $GDDAT SSTORE EXPECTED 
6562 006376 111115 MOVB . : 
6563 006400 023715 001124 CMP $GDDAT, (RS) SSHOULD STILL BE ALL 1°S 
6564 006404 001401 BEQ $ 
6565 006406 104005 ERROR yIMR REG ERROR 
6566 006410 112710 000240 2s: MOVB = #MISR, (RO) SLOAD MODE BITS FOR ISR 
6567 006414 005037 001124 CLR SGDDAT SSTORE EXPECTED 
6568 006420 111115 MOVB (R17), (RS) TREAD 
6569 006422 023715 001124 CMP SGDDAT, (RS) SISR SHOULD BE CLEARED 
6570 006426 001401 BEQ 3$ 
6571 006430 104006 ERROR 6 ZISR REG ERROR 
6572 006432 112710 00254 3$: MOVB #MACR, (RO) [LOAD MODE BITS FOR ACR 
6573 006436 111115 MOVB = (R1),, (R5) TREAD ACR 
6574 006440 023715 001124 CMP SGDDAT, (RS) tACR SHOULD BE CLEARED 
6575 006444 001401 4$ 
6576 006446 104004 ERROR ZACR REG ERROR 
6577 006450 105010 4$: CLRB = (RO) SCHIP RESET GROUP 1 
6578 006452 112710 000250 MOVB  #MIRR, (RO) [LOAD MODE BITS FOR IRR 
6579 006456 111115 MOVB = (R1),, (RS) : 
6580 023715 001124 CMP SGDDAT, (RS) tIRR SHOULD BE CLEARED 
6581 006464 001401 BEQ it 
6582 006466 104003 ERROR 3 ;IRR REG ERROR 
6583 006470 005505 5$: DEC R3 [TEST GROUPS 1 AND 2 
6584 006472 00140 BEQ T5126 +:;BR IF BOTH GROUPS TESTED 
6585 006474 013700 001352 MOV DRCSC,RO :GROUP 2 CONTROL PORT 
6586 006500 013701 001356 MOV DRCSD,R1 SGROUP 2 DATA PORT 
687 006504 000711 BR 1118 [TEST GROUP 2 ACR UNIQUENESS 
6589 
6590 FF RAERAAAAAAAAAAAEKARAEAAAEEAEAAAARAAAAAERAARERAAAAEAARAAARERAEEREREE 
(3) T*TEST 26 TEST GROUPS 1,2 ACR WITH PATTERNS 
(3) SF REAAAAEAEAAAAEAARARAAAAARERATAAAAAARARAARARAAAAAAARARARAAAEAAREREEE 
(2) 006506 000004 1726: SCOPE 
6591 006510 004737 013056 JSR PC,CLRCSR :CLEAR ALL CSRS 
6592 006514 01270 90000 MOV #2.R :TEST TWO GROUPS 
6593 006520 012737 006546 001110 MOV #1$, SLPERR 7SET UP LOOP RETURN 
6594 006526 013700 00134 MOV DRCSA,RO TSTORE CSRA ADDRESS 
6595 006532 013701 001 346 MOV DRCSB.R1 TSTORE CSRB ADDRESS 
6596 006536 012703 0131 1118: MOV #BEGPAT R3 [SET UP PATTERN TABLE 
6597 006542 010137 001122 MOV R1, $BDAOR [STORE ADDRESS 
6598 006546 112710 0002 4 1$: MOVB #MACR, (RG) [LOAD MODE BITS FOR ACR 
6599 00655 112710 000300 MOVB = #PACR. (RO) SPRESELECT ACR FOR WRITING 
6600 356 111337 001124 MOVB — (R3) , $GDDAT TSTORE EXPECTED 
6601 006562 111311 MOVB (R3).(R1) SWRITE INTO AC 
6602 006564 111119 MOVB = (R17). (R5) [READ OUT OF ACR 
6603 006566 023715 001124 CMP SGDDAT, (RS) 


me ee = 





ae a ee whetiiinietinnen 


¢ 3 
MACY11 30(1046) UF pg de 133 25 PAGE 5 


CNDRCA DRV11J DIAG TST PRT1 8-9 
[ENDRCA.P11.--10=DEC=82 14:37 26 TEST GROUPS 1,2 ACR WITH PATTERNS SEQ 0028 
| 6604 006572 001401 BEQ 2$ 
6605 006574 104004 ERROR 4 ZACR REGISTER ERROR 
6606 006576 005 33 2$: TST (R3)+ SINC FOR NEXT PATTERN 
6607 006600 020 013464 CMP R3,#ENDDAT [CHECK FOR TABLE END 
6608 006604 001360 BNE 1$ ;W/R NEXT PATTERN 
6609 0066 905302 DEC R2 ‘FINISHED BOTH GROUPS? 
6610 006610 00140 BEQ TST27 [:BR IF EQU 
6611 006612 013700 001352 MOV DRCSC,RO 
6612 006616 013701 001356 MOV DRCSD,R1 
6613 006622 000745 BR 1118 300 NEXT GROUP 
6615 FARRAR AAAAAAAEHEHAEEAEREEAAAERAAAAERERAEERAEEEEEREREEERERAEES 
(3) SSTEST 27 TEST GROUPS 1,2 IMR WITH PATTERNS 
(3) jeeecenececeeraneeenereretertreneneneneceteneceeeneonenenerenene 
(2) 094624 000004 +8127: SCOPE 
6616 006626 004737 013056 JSR PC,CLRCSR :CLEAR ALL CSRS 
6617 006632 01270 000002 MOV # STEST TWO GROUPS 
6618 005636 012737 006664 001110 MOV #1$,$LPERR [SET UP LOOP RETURN 
6619 006644 013700 001342 MOV DRCSA,RO SSTORE CSRA ADDRESS 
6620 006650 013701 001346 MOV DRCSB,R1 ‘STORE CSRB ADDRESS 
6621 006654 012703 013164 111$: MOV #BEGPAT,R3 [SET UP PATTERN TABLE 
6622 010137 001122 MOV R1,$BDADR SSTORE ADDR ESS 
6623 006664 112710 000244 1$: MOVB #MIMR, (RO) [LOAD MODE BITS FOR IMR 
6624 006670 112710 000260 MOVB = #PIMR. (RO) SPRESELECT IMR FOR WRITING 
6625 006674 111337 001124 MOVB = (R3), $GDDAT [STORE EXPECTED 
6626 006700 111311 MOVB = (R3).(R1) ‘WRITE INTO IMR 
6627 702 111115 MOoVB =: (R71), (RS) [READ OUT OF IMR 
28 704 023715 001124 CMP SeDDAT. (RS) 
6629 006710 001401 EQ 2$ 
30 006712 104005 ERROR § :IMR REGISTER ERROR 
6631 006714 005723 2$: TST (R3)¢ SINC FOR NEXT PATTERN 
32 006716 020327 013464 CMP R3,#ENDDAT [CHECK FOR TABLE END 
6633 006722 001360 BNE 1$ tW/R NEXT PATTERN 
006724 005302 DEC R2 iF INISHED BOTH GROUPS? 
6635 006726 001405 BEQ TST30 [:BR IF EQUAL 
006730 013700 001352 MOV DRCSC,RO 
6637 006734 013701 001356 MOV DRCSD.R1 
6638 006740 000745 BR 1118 :D0 NEXT GROUP 
6640 FRAAAAAAERAAARAAAEAAAEAAEAEAEREEAAAARAAAAAAAEAARAAAEEREREAAREEEREE 
(3) TSTEST 30 TEST GROUP 1,2 CLEAR IMR INSTR. 
(3) jteneereececenencereneceeeetereneceenenenenetecensererenenserers 
(2) 006742 000004 78130: SCOPE 
1 006744 004737 013056 JSR pc ct »CLRCSR ICLEAR ALL CSRS 
6642 006750 012704 0002 MOV COUNT ER FOR TWO GROUPS 
6643 006754 013700 00134 MOV oatsa. RO *CSRA ADDRESS 
6644 006760 013701 00134 MOV DRCSB,R1 ESRD ADDRE 
6645 006764 010137 00112 111$: MOV R1, $BDADR STORE ADDRESS 
6646 006770 005037 001124 CLR SGDDAT SEXPECTED DAT 
6647 006774 112710 000244 MOVB &#MIMR, (RO) [LOAD MODE BITS TO READ IMR 
6648 007000 112710 000040 MOVB = #CIMR. (RO) [CLEAR IMR COMMAND 
6649 007004 111115 MOVB = (R1) [READ DATA PORT 
6650 7006 023715 001124 CMP S$GDDAT, (RS) 
6651 007012 001401 BEQ 1$ 
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MACY11 30(1046) 
730 


001124 | 


001110 


ERROR 5 
DEC 4 


d. 3 
15=DEC=82 15:25 PAGE 58-10 
TEST GROUP 1,2 CLEAR IMR INSTR. 


sERROR ,IMR ote e. CLEARED 


1$: R iF INISHED BOTH 
BEQ TST31 BOTH GROUPS oe stED 
MOV DRCSC, RO ‘ete FOR GROUP 2 
MOV DRCSD, 
BR 1118 3D0 IMR TEST WITH GROUP 2 
FRAAAAAAAAAAAAEAAEHEAAE TERA AAAAEAARAAAAAAREEEAAEEEEEEEEREHEEEEEE 
SATEST 31 TEST GROUP 1,2 SET IMR INSTR. 
jeaenenecececececeneererececererenenecerecncenneeceerarereteres 
78131: SCOPE 
JSR PC,CLRCSR :CLEAR ALL CSRS 
MOV #2,R4 OUNTER FOR TWO GROUPS 
MOV DRCSA,RO =CSRA ADDRE 
MOV DRCSB,R1 'CSRB ADDRESS 
111$: MOV R1 SBbADR STORE ADDRESS 
MOV #377 ,SGDDAT SEXPECTED DAT 
MOVE = #MIMR, (RO) [LOAD MODE BITS TO READ IMR 
MOVB #CIMR, (RO) [CLEAR IMR 
MOVB = #SIMR. (RO) :SET IMR COMMAND 
MOVB = (R1), (RS) SREAD DATA PORT 
CMP SGDDAT, (RS) 
BEQ 1$ 
ERROR 5 sERROR ,IMR SHOULD BE SET 
1$: DEC RG 3F INISHED BOTH §? 
BEQ TST32 [;BR IF BOTH GROUPS TESTED 
V DRCSC,RO sSETUP FOR GROUP 2 
MOV DRCSD, 
1118 :D0 IMR TEST WITH GROUP 2 
FRARAAAAAEAAAAAERAAAAAAEEEAEARAEEEERARAEAAAERAAAREEAAAEREEAEEEEEEEE 
tSTEST 32 TEST GROUP 1,2 CLEAR SINGLE IMR BIT INSTR. 
RReReReReteeaneeeeeeeeeeeseeeseneaegenegneaegegaeeeereneeeeees 
t$132: SCOPE 
JSR PC, CLRCSR ICLEAR ALL CSRS 
MOV #2-RG :GROUP COUNTER 
MOV #1$,SLPERR * SCOPE ARETURN ADDRESS 
MOV RCSA, [CSRA ADDRESS 
MOV DRCSB.R1 :CSRB ADDRESS 
111$: MOV R1, $BDADR [STORE ADDRESS 
MOV GCHP4,R3 :GOOD DATA PATTERN TABLE 
MOVB #MIMR, (RO) [LOAD MODE BITS FOR IMR 
MOV #CSIMR R2 CLEAR SINGLE IMR BIT VALUE 
1$: MOVB . (R3),$GDDAT SSTORE EXPECTED 
MOVB = #S IMR, (RO) [SET ALL IMR BITS 
MOVB 2, (RO) [CLEAR SINGLE IMR BIT 
MOVB = (R14), (RS) TREAD DATA PORT 
CHP SGDDAT, (RS) 
ERROR ZIMR REG ERROR 
2s: TST (R3)¢ INC EXPECTED DATA TABLE 
CHP RS. #EDCHP [CHECK FOR END 
INC R2 :SET UP TO CLEAR NEXT IMR BIT 


SEQ 0029 
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7 
15=DEC-82 15:25 PAGE 58-11 
TEST GROUP 1,2 CLEAR SINGLE IMR BIT INSTR. 
R 


B 1$ CLEAR NEXT IMR BIT 
3$: DEC RG 3D0 GROUP 

BEQ TST33 338R IF BOTH GROUPS TESTED 

MOV DRCSC,RO sCSRC ADDRESS 

MOV DRCSD,R1 3CSRD_ ADDRESS 

BR 111$ 300 G 
POTS iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiy) 
s*TEST 33 TEST GROUP 1,2 SET SINGLE IMR BIT INSTR. 


Ff RRRAAARAAEAEAAAERAEAEEERAEEEEEEEEEEREARAAEAAREREEREREREEEEREEEEEAEED 


TST33: SCOPE 


JSR PC,CLRCSR ICLEAR ALL CSRS 
MOV sGROUP COUNTER 
MOV #1$,SLPERR ‘SCOPE RETURN ADDRESS 
MOV DRCSA,RO *CSRA ADDRESS 
MOV DRCSB.R1 [CSRB ADDRESS 
111$: MOV R1, $BDADR [STORE ADDRESS 
MOV #BGCHP3,R3 [GOOD DATA PATTERN TABLE 
MOVB #MIMR, (RO) [LOAD MODE BITS FOR IMR 
MOV #SSIMR,R2 SSET SINGLE IMR BIT VALUE 
1$: MOVB = (R'3) , $GDD ‘STORE EXPECTED 
MOVB = #CIMR, (RO) [CLEAR ALL IMR BI 
MOVB _—R2,, (RO) :SET SINGLE IMR BIT 
MOVB = (R14), (RS) ZREAD DATA POR 
CMP SGDDAT, (RS) 
BEQ es 
ERROR ZIMR REG ERROR 
2$: TST (R3)+ SINC EXPECTED DATA TABLE 
cp R3.#EDCHPS [CHECK FOR END 
INC R2 :SET UP TO SET NEXT IMR BIT 
BR 1$ [SET NEXT IMR BIT 
3$: DEC RG [DO GROUPS 1 AND 2 
BEQ TST34 :;BR IF BOTH GROUPS TESTED 
MOV DRCSC,RO :CSRC ADDRESS 
MOV DRCSD.R :CSRD ADDRESS 
BR 1118 :D0 GROUP 2 
FF RRAAAAAAAAAAERAAAAAAEAAAAHEAAEAAAAAAAAAAAAAEREERERAEEEAERAEEEEEEE 
T*TEST 34 TEST GROUP 1,2 SET IRR INSTR. 
bd 2 SEAAAAAARAAARARAAAAAEAAARAATAEKASKAAAARARARARARARARASAARAREAAEAEAREEEEEE 
T$134: SCOPE 
JSR PC,CLRCSR :CLEAR ALL CSRS 
MOV : [COUNTER FOR TWO GROUPS 
MOV DRCSA,RO SCSRA ADDRESS 
DRCS sCSRB ADDRESS 
JSR PC, CLRIRR [CLEAR IRR REGS WITH CHIP RESET 
1118: = MOV R1.$BDADR SSTORE ADDRE 
MOV #377, $GDDAT sEXPECTED DATA 
MOVB = #MIRR, (RO) [LOAD MODE BITS TO READ IRR 
MOVB = #SIRR. (RO) [SET IRR COMMAND 
MOVB = (R11), (R5) SREAD DATA PORT 


CMP SGDDAT, (R5) 


SEQ 0030 
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MACY11 30(1046) 15=DEC-82 15:25 PAGE 58-12 
134 TEST GROUP 1,2 SET IRR INSTR. 


BEQ 1$ 
ERROR 3 ZERROR ,IRR SHOULD BE SET 
1$: DEC RG :FINISHED BO A ROU 
BEQ TST35 ‘:BR IF H GROUPS Estep 
MOV DRCSC,RO : SETUP FOR "énsur 2 
MOV DRCSD,R1 
BR 1118 :D0 IRR TEST WITH GROUP 2 
FARRAR AAAEAEAAAAAAAA EATER RAHA ERAAAAARAEAHAAEKEREEERAEKEEEREEEE 
TEST 35 TEST GROUP 1,2 CLEAR IRR INSTR. 
fs RRAAAAAAAEAAAAEAAE AAA EHE HHA AAEHAAEEAAAARAHERAEEHEAEEKEREREREREE 
18135: SCOPE 
JSR PC, CLRCSR ZCLEAR ALL CSRS 
MOV #2,R4 [COUNTER FOR TWO GROUPS 
MOV DRCSA,RO =CSRA ADDRESS 
MOV DRCSB.R1 [CSRB ADDRESS 
JSR PC, CLRIRR = CLEAR in REGS WITH CHIP RESET 
111$: MOV R1.$BDADR SSTORE Al DRESS 
CLR SGDDAT SEXPECTED DAT 
MOVE a#MIRR, (RO) LOAD MODE alts TO READ IRR 
MOVB #SIRR. (RO) CET IRR BITS 
MOVB  #CIRR. (RO) TCLEAR IRR C 
MOVB  (R1), (RS) TREAD DATA PORT 
CMP SGDDAT, (RS) 
BEQ 1$ 
ERROR 3 ZERROR ,IRR SHOULD BE CLEARED 
1$: DEC RG ‘FINISHED BOTH GROUPS? 
BEQ TST36 +:;BR IF BOTH GROUPS TESTED 
MOV DRCSC,RO :SETUP FOR GROUP 2 
MOV DRCSD,R1 
BR 111$ :D0 IRR TEST WITH GROUP 2 
FARAH AKA AAAAAEAARAHAAAAAAAEAEAARAAAAAHREHAAAAAAREKEEERAAREREE 
TEST 36 TEST GROUP 1,2 CLEAR SINGLE IRR BIT INSTR. 
MeARARAZAASZAALALALLALLELEE LEAL ESE EEE RE RE RESET RE EERE EE EERE RES 
7136: SCOPE 
JSR PC,CLRCSR ICLEAR ALL CSRS 
MOV #2-R [GROUP COUNTER 
001110 MOV #1$,SLPERR SCOPE RETURN ADDRESS 
MOV DRCSA,RO SCSRA ADDRESS 
MOV DRCSB.R1 'CSRB ADDRESS 
JSR PC, CLRIRR [CLEAR IRR REGS WITH CHIP RESET 
1118: MOV R1,$BDADR *STORE ADDRESS 
MOV #BGCHPS ,R3 3G00D DATA PATTERN TABLE 
MOVB  &#MIRR, (RO) LOAD MODE BITS FOR IRR 
MOV #CSIRR,R2 SELEAR SINGLE IRR BIT VALUE 
1$: MOVB _— (R3) , SGDDAT [STORE EX PeCT ED 
MOVB = #@S IRR, (RO) :SET ALL IRR BITS 
MOVB (RO) [CLEAR SINGLE IRR BIT 
MOVB = (R'1), (RS) SREAD DATA PORT 
CMP $GDDAT, (RS) 
BEO $ 
ERROR ZIRR REG ERROR 


SEQ 0031 
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MACY11 30(1046) 
136 


001110 


2s: 


3$: 


i ay 15:25 ace 58-13 


GROUP 1,2 CLEAR SINGLE IRR BIT INSTR. 


(R3)+ ZINC ei yia DATA TABLE 
R3 AEDCHPA ;CHECK FOR END 
R2 sSET UP TO ay NEXT IRR BIT 
1$ ;CLEAR NEXT IRR BIT 
R4 300 GROUP 
TS137 336R IF BOTH GROUPS TESTED 
DRCSC,RO 7CSRC ADDRESS 
DRCSD,R1 3CSRD_ ADDRESS 
1118 :D0 GROUP 2 


fF TRAAAAAREREAAAAAAEEEEE AREA AA ERERAEAAEEEAEAEEEKEREEREEEREEEREREE 


SSTEST 37 


PPPOTTTTTTTTITITITITITTTI LITT LIT TTT TTT TTT TTT TTT TTT TTT 


18137 


1118: 


1$: 


23: 


3$: 


SCOPE 


TEST GROUP 1,2 SET SINGLE IRR BIT INSTR. 


PC,CLRCSR ;CLEAR ALL CSRS 

2.R4 COUNTER 

#1$,SLPERR : SCOPE RETURN ADDRESS 
DRCSA,RO [CSRA ADDRESS 

DRCSB,R1 CSR ADD RESS 

PC, CLRIRR [CLEAR IRR REGS WITH CHIP RESET 
R1,$BDADR ‘STORE ADDRES 

6CHP3,R3 :GOOD DATA PATTERN, TABLE 

#MIRR, (RO) [LOAD MODE BITS FOR IRR 
#SSIRR,R2 ‘SET SINGLE IRR Bit VALUE 
(R3) , SGDDAT STORE EXPECT ED 

#ciRR (RO) ICLEAR ALL IRR BIT 

R2, (RO) SET SINGLE IRR BIT 

(Ri), (RS) SREAD DATA PORT 

sco0At, (RS) 

ZIRR REG ERROR 

(R3)¢ SINC EXPECTED DATA TABLE 
R3.#EDCHPS [CHECK FOR END 
R2 :SET UP To SET NEXT IRR BIT 
1$ 3SET NEXT IRR BIT 
R4 200. GROUPS 1 AND 2 

TST40 BR IF BOTH GROUPS TESTED 
DRCSC,RO teSRC ADDRESS 

DRCSD.R1 :CSRD ADDRESS 

1118 :D0 GROUP 2 


FRRARAAAAAAAEEAAAAAEHAEAEAAAAEEEAAAEAEAAAAEEERAEEEAEEAEAEREEEERERE 


SATEST 40 


PTTTTITITITITITITTTTI TELL TTT TTT ETE TTT LEE 


1140: 


111$: 


SCOPE 


TEST GROUP 1,2 CLEAR IRR+IMR INSTR. 


Ay CLRCSR CLEAR ALL CSRS 


*COUNTER FOR TWO GROUPS 

ORESA.RO [CSRA ADDR ESS 

DRCSB.R1 :CSRB ADDRESS 

PC.CLRIRR [CLEAR IRR REGS WITH CHIP RESET 
SSTORE ADDRESS 


Scbon ar ‘EXPECTED DATA 


SEQ 0032 


ear 


MACY11 30(1046) 
140 


| 
CNDRCA DRVI1J DIAG TST PRTI 


CNDRCA.P11 10=DEC=82 14:37 
6844 010134 11g718 000250 
6845 010140 112710 000120 
6846 010144 112710 000060 
6847 010150 112710 20 
6848 010154 111115 
6849 010156 023715 001124 
6850 010162 001401 
6851 010164 104003 
6852 010166 112710 000244 
6853 010172 111115 
6854 010174 023715 001124 
6855 010200 001401 
6856 010202 104005 
6857 010204 005304 
6858 010206 001405 
6859 010210 013700 001352 
6860 010214 013701 001356 
6861 010220 000741 
6862 
6863 

(3) 

(3) 

‘$3 010222 000004 
6864 010224 004737 0130 
6865 010230 012704 0000 
6866 010234 012737 0102 
6867 010242 013700 Oot 
6868 010246 013701 1346 
6869 010252 004737 013126 
6870 010256 010137 001122 
6871 010262 012703 013330 
6872 010266 012702 000030 
68735 010272 111337 001124 
6874 010276 112710 000250 
6875 010302 112710 000120 
6876 010306 112710 
6877 010312 110210 
6878 010314 111115 
6879 010316 023715 001124 
6880 010322 001401 
6881 010324 104003 
6882 oipees 112710 000244 
6883 010332 111115 
6884 010334 023715 001124 
6885 010340 001401 
6886 010342 104005 
6887 010344 005723 
6888 O10 3e8 020327 013350 
6889 010352 00140 
6890 010354 00520, 
6891 010356 00074 
6892 010360 005304 
6893 010362 001405 
6894 010364 013700 001352 
6895 010370 013701 001356 


56 
7 
ts 001110 


1$: 


2s: 


H 3 
15=DEC=82 15:25 PAGE 58-14 
TEST GROUP 1,2 CLEAR IRR+IMR INSTR. 


#MIRR, (ROD 
#SIRR, (RO) 
#SIMR. (RO) 
#CIRMR, (RO) 
(R1), (RS) 

SGDDAT, (RS) 


$6 5) 


Dur 
=~ @ 


LOAD MODE BITS TO READ IRR 
SET IRR BITS 

: MR BITS 
sCLEAR_IRR+IMR COMMAND 
READ DATA PORT FOR IRR 


wn 
m 
oT 


sERROR ,IRR SHOULD BE CLEARED 
LOAD MODE BITS TO READ IMR 
sREAD IMR REG 


;IRR*+IMR COMMAND DID NOT CLEAR IMR 


[FINISHED BOTH GROUPS? 
7;BR IF BOTH GROUPS TESTED 
:SETUP FOR GROUP 2 


3D0 IRR+IMR TEST WITH GROUP 2 


FF ERAAAAAAAAAAAARAE EAE EEEEEEEEAEREAEEERAEEREEEEEAEREEEHEEEEEEEEEE 


s*TEST 41 


TST41: 


1118: 


1$: 


2$: 


3$: 


4%: 


SCOPE 


TEST GROUP 1,2 CLEAR SINGLE IRR+IMR BIT INSTR. 


PC,CLRCSR 


#MIMR, (RC) 
(R1),(R5) 
SGDDAT, (R5) 


R3)+ 
Br AERC 


2 
DRCSC,RO 
DRCSD,R1 


——>— ——— > — 


SERRA AAARAEEEAEEEEE EAE AEEAAARAEEEERAEEEAEEEHEREEEEEEREREEEEE 


CLEAR ALL CSRS 

sGROUP COUNTER 

SCOPE RETURN ADDRESS 

sCSRA ADDRESS 

2CSRB_ ADDRESS 

sCLEAR IRR REGS WITH CHIP RESET 
sSTORE ADDRESS 

3GOOD DATA PATTERN TABLE 

CLEAR SINGLE IRR+IMR BIT VALUE 
STORE EXPECTED 

LOAD MODE BITS TO READ IRR 
sSET ALL IRR BITS 

sSET ALL IMR BITS 

sCLEAR SINGLE IRR+IMR BIT 

READ DATA PORT FOR IRR 


zIRR REG ERROR 
SET UP TO READ IMR 
READ IMR REGISTER 


IMR REG ERROR 
INC EXPECTED DATA TABLE 
CHECK FOR END 


:SET UP TO CLEAR NEXT IRR+IMR BIT 
CLEAR NEXT IRR+IMR BIT 
;D0 GROUPS 1 


:BR IF BOTH GROUPS TESTED 


sCSRC ADDRES 
sCSRD ADDRESS 


SEQ 0033 


c-—-—- + + 


/CNDRCA DRVI1J DIAG TST PRT 
10=DEC=82 14:37 
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CNDRCA.P11 
6896 010374 
6897 
6898 

(3) 

(3) 

(2) 010376 

(2) 
6899 010400 
6900 
6901 
6902 
6903 
6904 010404 
6905 010410 
6906 010414 
6907 010420 
6908 010424 
6909 010430 
6910 010434 
6911 010440 
6912 010444 
6913 010450 
6914 010452 
6915 010456 
6916 010460 
6917 010462 
6918 010466 
6919 010474 
6920 010476 
6921 010502 
6922 010504 
6923 010506 
6924 010512 
6925 010516 
6926 010520 
6927 010524 
6928 abs 
4444 0105 
6930 010534 
6931 010536 
6932 010542 
69335 010544 
6934 010546 
6935 010550 
6936 010552 
6937 010556 
6938 010562 
6939 810368 
6940 0105 
6941 010576 
6942 010602 
694 
6944 

(3) 

(3) 

(2) 010604 
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MACY11 30(1046) 
T41 


001124 


111$ 


15=DEC-82 15:25 ace 58-15 


TEST GROUP 1,2 CLEAR SINGLE IRR+IMR BIT INSTR. 


3D0 GROUP 2 


SS RAAAAAAAEAAAAAAEAAEAAAEAAEAEAAAAAAAAAAAAAAAARAARERAAERAAAAERAAEE 


TEST GROUPS 1,2 FOR GROUP UNIQUENESS 


SSERAAAAAAAERAEAAAAAAAAATHEEEEAAAAAARAAAAAAAEAAEAEAAAAEEREEARERAAEE 


TeTEST 42 
T§142: 
JSR 


111$: MOV 


1$: MOVE 


2$: 


3$: 


4$: DEC 


SCOPE 


PC,CLRCSR 


#MACR, (R2) 
SGDDA 

(R3), (RS) 
SGDDAT, (RS) 
1s 

#MIMR, (R2) 
#577 SGDDAT 
SODDAT, (RS) 
WMISR, (R2) 
SGDDAT 
(R3), (RS) 
SCDDAT, (RS) 


6 

#MIRR, (R2) 
(R3), (RS) 
SGDDAT, (RS) 
4$ 


RG 
TST43 
PC,CLRCSR 
DRESC.RO 


sCLEAR ALL CSRS 
:CSRA = RO 


E ADDRESS 
sPRESELECT ACR FOR WRITING 
sWRITE INTO DATA PORT FOR ACR 
sSET IRR TO ALL 1°S 


7C IMR 
3LOAD me TO READ ACR 


sEXPECTED 
zSTORE DATA FOR COMPARE 
sCHECK ACR RESULTS 


TERROR,OTHER GROUP ACR SHOULD BE CLEARED 
[CHANGE TO IMR REGISTER 

i STORE EXPECTED 

[SHOULD BE ALL 1°S 

sERROR,OTHER GROUP IMR SHOULD BE SET 
[LOAD MODE BITS FOR ISR 

i STORE EXPECTED 

[ISR SHOULD BE CLEARED 


21SR REG ERROR 
3LOAD — BITS FOR IRR 


SIRR SHOULD BE CLEARED 


sERROR OTHER GROUP IRR SHOULD BE CLEARED 
zTEST GROUPS 1 AND 
336R IF 1”. enous TESTED 


2G DA 
CLEAR IRR REGS WITH CHIP RESET 
zTEST GROUP 2 ACR UNIQUENESS 


PRARARAAALALAALALALALA LEADED AAA A RARER REARS EERE RRR RR 


TEST STATUS BITS GINT,S2,S$1,S0,GP1,2 


PE ARARAAAAAALALILAAL ALE SALAS ARAL ALE EATER RARER E ETE RRR REE SD 


T*TEST 43 
15143: 


SCOPE 


SEQ 0034 


-————— -— ---- —— --— C+ + 


/CNDRCA DRV11J DIAG TST PRT 


J 3 
T PRT1  MACY11 30(1046) 15=DEC-82 15:25 PAGE 58-16 
, 10=DEC=82 14:37 143 TEST STATUS BITS GINT,S2,S1,S0,GP1,2 SEQ 0035 
(2) 
| 6965 010606 00473 013056 JSR PC, CLRCSR ZCLEAR ALL CSRS 

6946 010612 013700 00134 MOV DRCSA,RO 
6947 010616 013701 001 346 MOV DRCSB.RI 
6948 010622 012703 00000 MOV t :D0 TwO GROUPS 
6949 010626 0127 900120 111$: MOV #120,R4 SEXPECTED STATUS BITS 
6950 010632 005077 170504 CLR @DRCSA SINIT CSRA 
6951 010636 005077 170510 CLR aDRCS SINIT CSRC 
6952 010642 012702 013166 MOV #BGPAT1,R2 SEXPECTED IRR PATTERN 
6953 010646 112760 000001 000001 MOVB #B1T0,1(RO) 'CSR TO OUTPUT MODE 
6954 910654 112777 000204 170460 MOVB #204,aDRCSA [POLLED MODE FOR CSRA,GROUP 1 
6955 010662 112777 000204 170462 MOVB #204. aDRCSC [POLLED MODE FOR CSRC.GROUP 2 
6956 010670 112710 000020 MOVB = ACIRMR, (RO) [CLEAR IMR + IRR 
6957 010674 012737 000070 001372 MOV MSSIMR,IMRLOC STORE CODE FOR SINGLE IMR 
6958 010702 012737 000130 001376 MOV WSSIRR,IRRLOC STORE CODE FOR SINGLE IRR 
6959 010710 010037 001122 112$: MOV RO, SBDADR [CSR CHIP COMMAND ADDRESS 
rs 010714 010437 001124 MOV R4.$GDDAT SEXPECTED DATA 
6961 010720 113710 001376 MOVB _—IRRLOC, (RO) [SET SINGLE IRR BIT 

010724 111015 MOVB (RO), (R5) [CHECK STATUS 
6963 010726 042715 000007 BIC #7, (R5) +; te VDRCAl ADDS THIS ee r:GPA 

010732 023715 001124 CMP SGDDAT, (RS) 
6965 010736 001401 BEQ 1$ 

010740 104007 ERROR 7 SCHIP STATUS ERROR 
6967 010742 005037 001124 1$: CLR SGDDAT 

010746 010137 001122 MOV R1,$B8DADR :CSR CHIP DATA ADDRESS 
6969 010752 111237 001124 MOVB (R29) ,SGDDAT 
6970 010756 112710 000250 MOVB = #MIRR, (RO) ;READ IRR 
6971 010762 111115 MOVB = (R11), (RS) 
6972 010764 023715 001124 CMP SGDDAT, (RS) ZCHECK IRR 
6973 010770 001401 BEQ $ 
6974 010772 104003 ERROR ZIRR ERROR 
6975 010774 010037 001122 2s: MOV RO, SBDADR 
6976 011000 113710 001372 MOVB = IMRLOC, (RO) zSET IMR BIT 
6977 011004 012737 000320 001124 MOV #320, $GDDAT [CSR EXPECTED DATA 
6978 011012 111015 MOVB (RO). (RS) 
6979 011014 042715 000007 BIC #7, (R5) ZCLEAR UNDEFINED BITS 
6980 011020 023715 001124 CMP SGDDAT, (RS) 
6981 011024 001401 BEQ 3$ 
6982 011026 song? ERROR 7 sCHIP STATUS ERROR 
6983 011030 010137 001122 3$: MOV R1,$BDADR 
6984 011034 011237 001124 MOV (R2) ,SGDDAT sEXPECTED DATA 
6985 011040 112710 000244 MOVB = #MIMR, (RO) [READ IMR BITS 
6986 011044 111115 MOVB = (R1), (RS) SSAVE IMR READ 
6987 011046 023715 001124 CMP SGDDAT, (RS) 
6988 011052 001401 BEQ 4$ 
6989 011054 104005 ERROR ZIMR ERROR 
6990 011056 005728 48: TST (R2)+ TNEXT EXPECTED FOR IMR + IRR 
6991 011060 020227 013206 CMP Re. #EDCHP! [CHECK FOR END 
6992 011064 001407 BEQ 5 
699 011066 005237 001376 INC IRRLOC :NEXT IRR BIT 
699% 011072 005237 001372 INC IMRLOC [NEXT IMR BIT 
6995 z:GPA INC R4 S INDEX EXPECTED STATUS 
69% 011076 000240 NOP i; *e VDRCAT DELETES INC R4 *** ;;GPA 
6997 011100 000137 010710 JMP 112 tbO NEXT STATUS CHECK 
699 011104 005303 5$: DEC R3 ‘FINISHED BOTH GROUPS? 
6999 011106 001406 BEQ TST44 [:BR IF EQUAL 





p————_- -——- —— —- rn 


Kk 3 
CNDRCA DRV11J DIAG TST PRTI MACY11 30(1046) 15=DEC-82 15:25 PAGE 58-17 
CNDRCA.P11 10=DEC=82 14:37 143 TEST STATUS BITS GINT,S2,S1,S0,GP1,2 SEQ 0036 
00 


7000 011110 913700 1352 MOV DRCSC,RO 

7001 011114 013701 001356 MOV DRCSD,R1 

£00 011120 000137 010626 JMP 111$ :D0 NEXT GROUP 

7004 

7005 SLURP AAA AAAAAAAAAAA HEHEHE ATEREEAAAEEEHEAEEEREEERREEHETEEREE HEE 
(3) SeTEST 44 TEST POLLED MODE;CSRS A,B=OUT C,D=IN, ACTIVE LOW 
(3) * RRAEEAAAAAAAEAAAAAEAAAAEAAAERAAEAARAAAAARAEARAAAARARAEAAARARAEKEAREEEEE 
(2) 011124 000004 T$144: SCOPE 

7006 011126 004737 013056 JSR PC, CLRCSR :CLEAR ALL CSRS 

7007 :RO = CSRA-GROUP 1 CONTROL 

7008 7R1 = CSRB-GROUP 1 DATA 

7009 sR2 = CSRC-GROUP 2 CONTROL 

7010 :R3 = CSRD-GROUP 2 DAT 

7011 011132 012737 011174 001110 MOV #1$,S$LPERR ZSET FOR SCOPE RETURN 

7012 011140 012704 013164 MOV #BEGPAT,R4 sSTART OF PATTERN TABLE 

7013 011144 112760 000001 000001 MOV #B1TO,1(RO) :SET CSRA TO OUTPUT MODE 

ar 011152 112761 000001 000001 MOVB #B1T0,1(R1) :SET CSRB TO OUTPUT MODE 

7016 011160 105010 CLRB  =—s-- (RO) ZCHIP RESET GROUP 1 CSRA 

7017 011162 105012 CLRB ss (R2) :CHIP RESET GROUP 2 CSRC 

7018 011164 112710 000204 MOVB #204,(RO) SLOAD MODE BITS FOR POLLED MODE,GR 1 

7019 011170 112712 000204 MOVB #204,(R2) sLOAD MODE BITS FOR POLLED MODE,GR2 

7020 011174 011460 000002 1$: MOV (R4) ,2(RO) 3SET PATTERN DBRA FROM H TO L 

7021 011200 112710 000020 MOVB #CIRMR, (RO) SCLEAR IMR+IR 

2028 011204 112712 000020 MOVB &#CIRMR,(R2) [CLEAR IMR+IRR GROUP 2 

70 911210 905060 900002 CLR 2(RO) ZCLEAR DBRA,ACTIVE LOW WILL SET RPLY C 

7024 011214 0101 11 2s: MOV R1,$BDADR : GROUP 1 PORT 

7025 011220 112710 000250 MOVB #MIRR, (RO) [LOAD BITS TO READ IRR 

7026 011224 111437 001124 MOVB  (R4) , SGDDAT 

7027 011230 111115 MOVB R1),(R zREAD IRR,GROUP 1 

7028 011232 023715 001124 CMP SGDDAT, (RS) 

7029 011236 001401 BEQ $ 

7030 011240 104003 ERROR zIRR ERROR,GROUP 1 

7031 011242 010337 001122 3$: MOV R3,$BDADR :GROUP 2 DATA PORT 

7032 011246 112712 000250 MOVB #MIRR,(R2) :LOAD MODE BITS TO READ IRR GROUP2 

7033 011252 116437 000001 001124 MOVB 1(R4),$GDDAT  ;BUILD EXPECTED DATA 

7034 011260 042737 000360 001124 BIC #360, $GDDAT TSAVE BITS 

7035 011266 052737 000100 001124 BIS #100, $GDDAT ZEXPECTED 0-3, URPLY 6(C) 

7036 011274 111315 MOVB (R3).(RS5) SREAD IRR BITS,GROUP 2 

7037 011276 023715 001124 CMP SGDDAT, (RS) 

7038 011302 001401 BEQ 

7039 011304 104003 ERROR 3 yIRR ERROR,GROUP 2 

7040 011306 00576¢ 900002 4$: TST 2(R2) :READ DBRC FOR RPLY 4(A) 

7041 011312 0527 20 001124 BIS 420 SGDDAT :STORE EXPECTED 

7042 011320 111315 MOVB = (R35, (RS) TREAD IRR BITS,GROUP 2 

7043 011322 023715 001124 CMP SGDDAT, (RS) 

7044 gis 6 001401 BEQ $ 

7046 B11339 Oososi 2 ss: CER Bc) sae AR CORO Fon REY 7(D) 

7047 011336 $0306) $00 n80 001124 BIS #200, $GDDAT TEXPECTED 

7048 11344 111315 MOVB (R3),(R5) ;READ IRR BITS GROUP 2 

7049 011 6 923715 001124 CMP SGDDAT, (RS) 

7050 01135 1401 BEQ $ 

7051 011354 104003 ERROR zIRR ERROR,GROUP 2 
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7052 011356 005763 000002 6$: TST 2(R3) ;READ DBRD FOR RPLY 5(8) 

7053 011362 052737 000040 001124 BIS #40,$GDDAT 

7054 011370 111315 MOVB = (R35, (R5) ZREAD IRR BITS GROUP2 

7055 011372 023715 001124 CMP SGDDAT, (RS) 

7056 011376 001401 BEQ 7$ 3GET NEXT PATTERN 

7057 011400 104003 ERROR sIRR ERROR,GROUP 2 

7058 011402 005724 7$: (R4)+ SINDEX DATA TABLE 

7059 011404 020427 013464 CMP R4,#ENDDAT [CHECK FOR END 

7060 071410 001271 BNE 1$ [DO NEXT PATTERN 

ne 

708 FF SAAR AAA AAAAEEAA HEARERS TEAR AEAEEAAEREREREREREREREEREE REE 
(3) T*TEST 45 TEST GROUPS 1,2 IN POLLED MODE,NO REPLY 
(3) fg RRA AAAAAAERAAI RAE EEEEEREEERERAAAAAAAERERAERAAEEEAEREEREEEEREREREEEE 
(2) 011412 000004 TS145: SCOPE 

7064 011414 004737 013056 JSR PC,CLRCSR ICLEAR ALL CSRS 

7065 tRO = CSRA-GROUP 1 CONTROL 

7066 :R1 = CSRB-GROUP 1 DATA 

7067 tR2 = CSRC=GROUP 2 CONTROL 

7068 [R3 = CSRD-GROUP 2 DATA 

7069 011420 012704 000002 MOV #2,R4 :TWO PASSES 

7070 [FIRST PASS CSRA,CSRB = OUTPUT 

7071 ; CSRC.CSRD = INPUT 

7072 TSEC PASS CSRC.CSRD = OUTPUT 

7073 : RA.CSRB = INPUT 

7074 011424 112760 000001 000001 111%: MOVB  #BITO,1(RO) ‘SET CSR TO OUTPUT MOD 

7075 g114 112761 900001 900001 MOVB #8 1T9 1(R1) [SET CSR TO OUTPUT 

7076 011440 012760 177777 02 MOV #-1,2¢RO) : LL ONES DBR FOR H TOL 

7077 011446 105010 CLRB =. (ROS [CHIP RESET GROUP CSR 

7078 011450 105012 CLRB —s- (R2) [CHIP RESET GROUP CSR 

7079 011452 112710 000204 MOVB #204,(RO) [LOAD MODE BITS FOR POLLED MODE 

7080 011456 112718 000204 MOVB #204. (R2) [LOAD MODE BITS FOR POLLED MODE 

7081 011462 112710 000020 MOVB = ACIRMR, (RO) [CLEAR IMR+IRR 

7082 011466 112712 000020 MOVB  ACIRMR.(R2) [CLEAR IMR+IRR 

7083 011472 005760 2 TST 2¢RO) [READ DBR IN OUTPUT MODE,NO REPLY 

7084 011476 012737 000320 001124 MOV #320, $GDDAT SSTORE EXPECTED 

7085 011504 010037 001122 MOV RO, $BDADR SSTORE ADDRESS 

7086 011510 111015 mMOVB (RO), (RS) TREAD STATUS 

7087 011512 042715 000007 BIC 47, (R5) [CLEAR UNDEFINED BITS 

7088 011516 023715 001124 CMP $GDDAT, (RS) :CHECK STATUS 

7089 011522 001401 BEQ 1$ 

7090 011524 104007 ERROR 7 :CHIP STATUS ERROR 

7091 011526 010237 001122 1$: MOV R2,$BDADR [STORE ADDRESS 

7092 011532 111215 MOVB = (R2), (RS) [READ STATUS 

7093 011534 O42 15 BIC 47, [CLEAR UNDEFINED BITS 

7094 011540 023715 001124 CMP SGDDAT, (RS) 

7095 011544 001401 BEQ $ 

7096 011546 104007 ERROR : CHIP STATUS ERROR 

7097 01135 012762 000002 2$: MOV #0,2(R2) [WRITE ONLY,DBR INPUT MODE FOR NO REPLY 

7098 011556 005761 TST 2(R1) [READ DBR OUTPUT MODE,NO REPLY 

7099 011562 01 763 000002 MOV #0,2(R3) [WRITE ONLY, DBR INPUT MODE,NO REPLY 

7100 011570 010137 0011 MOV R1.$BDADR : CHIP DATA PORT 

7101 011574 11 710 2 MOV = #MIRR, (RO) [LOAD BITS TO READ IRR 

710 911600 00503 1124 CLR $GDDAT ZIRR SHOULD BE ZERO 

7103 011604 111115 MOVB (R17), (RS) TREAD IRR 
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001124 
017214 


000300 
001124 


mM 3 
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001124 


001124 


TEST GROUPS 1,2 IN POLLED MODE,NO REPLY SEQ 0038 
ad SGDDAT, (RS) 
TST KXTFLAG 3; ON KXT11, em ty, oe LES a 
BEQ 100$ See AT 2S UPSETS EXPECTED IRR 33GPA 
MOV #300, SGDDAT 3: TRY THE ALTERNATE VALUE. 32GPA 
CMP SGDDAT, (R5) 33GPA 
BEQ : iGPA 
100$: ERROR 7 IRR ERROR 3iGPA 
3$: CLR SGDDAT 33GPA 
MOV R3,$BDADR sCHIP DATA PORT 
MOVB #MIRR, (R2) ;LOAD MODE BITS TO READ IRR 
MOVB (R35), (R5) sREAD IRR BITS 
Has $GDDAT, (RS) 
TST KXTFLAG 3; ON KXT11, DITTO. 73GPA 
BEQ 101$ 3iGPA 
MOV #60, $GDDAT 3 TRY THE ALTERNATE VALUE. 33GPA 
CMP SGDDAT, (RS) 33GPA 
BEQ 4$ g3 
101$: ERROR 3 zs IRR ERROR 33GPA 
4$: DEC RG FINISHED TWO PASSES 
BEQ TST46 7;BR IF EQUAL 
JSR PC,CLRCSR Sa ALL CSRS 
MOV DRCSC,RO sSET UP FOR NEXT PASS 
MOV DRCSD,R1 
MOV DRCSA,R2 
MOV DRCSB,R5 
111$ 3;D0 NEXT PASS 
FERRARA AEAAEAAAAEAEEE EEE EEEEEEAAEEEAEREAEEEAEEEEREREEEREEEEREE 
tt TEST 46 TEST POLLED MODE;CSRS C,D=OUT A,B=IN,ACTIVE LOW 
oe RERRRERERERAHRERREREEEEEEEERAEEAHAREAREREEREERERRERERERERE HERE 
T§146: SCOPE 
JSR PC,CLRCSR CLEAR ALL CSRS 


RO = CSRA-GROUP 1 CONTROL 
:R1 = CSRB-GROUP 1 DATA 
ing = CSRC-GROUP 2 CONTROL 

= “LOOP RETURN DATA 


MOV #1$,SLPERR OPE LOOP R 

MOV #BEGPAT RS PATTERN TABLE 

MOVB Te BA T CSRC TO OUTPUT MODE 
MOVB #81T0,1(R3) SET CSRD TO OUTPUT MODE 


ae Ce - Cesi=“# > + —— 


4 


CNDRCA DRVI1J DIAG T 


N 3 
ST PRT1. = MACY11 30(1046) 15=DEC=82 15:25 PAGE 59 
CNDRCA.P11 —-10=DEC=82 14:37 146 TEST POLLED MODE;CSRS C,D=OUT A,B=IN,ACTIVE LOW SEQ 0039 
7144 011776 105010 CLRB = (RO) :CHIP RESET GROUP 1 CSRA 
7145 012 105012 CLRB (2) SCHIP RESET GROUP 2 CSRC 
714 012002 112710 000204 MOVB #204, (RO) SLOAD MODE BITS FOR POLLED MODE,GR 1 
7147 01 Merig 000204 MOVB  #204.(R2) [LOAD MODE BITS FOR POLLED MODE,GR2 
7148 01 01146 1$: MOV (RG) .2(R2) SSET PATTERN DBRC FOR 
7149 012016 112710 MOVB  #CIRMR, (RO) SCLEAR IMR+IRR GROUP 
7150 012022 112712 000020 MO #CIRMR, (R2) SCLEAR IMR+IRR GROUP 
7151 012026 90506 00000. CLR 2(R2) :CLEAR DBRC,ACTIVE LOW WILL SET RPLY A 
7152 012032 010137 00112 2$: MOV R1,$BDADR : GROUP 1 DATA POR 
715 012036 112710 000250 MOVB = #MIRR, (RO) SLOAD BITS TO READ IRR 
7154 012042 111437 001124 MOVB = (R4) , $GDDAT 
7155 012046 111115 MOVB R1). (RS) ;READ IRR,GROUP 1 
7156 012050 023715 001124 CMP SGDDAT, (R5) 
7157 012054 001401 BEQ $ 
7158 012056 104003 ERROR yIRR ERROR,GROUP 1 
7159 012060 010337 001122 3$: MOV R3,SBDADR :GROUP 2 DATA PORT 
7160 O12 112712 000250 MOVB #MIRR, (R2) [LOAD MODE BITS TO READ IRR GROUP2 
7161 012070 116437 000001 001124 MOVB = 1(R4) .$GDDAT 
7162 012076 042737 000360 001124 BIC #360, $GDDAT :SAVE BITS 0-3 
7163 012104 052737 000020 001124 BIS #20, $GDDAT SEXPECTED 0-3,URPLY 4(A) 
7164 012112 111315 MOVB = (R35, (RS) [READ IRR BITS,GROUP 2 
7165 012114 023715 001124 CMP $GDDAT, (RS) 
7166 012120 001401 BEQ 4$ 
7167 012122 104003 ERROR 3 ;IRR ERROR,GROUP 2 
7168 012124 005760 000002 4$: TST 2(RO) [READ DBRA FOR RPLY 6(C) 
7169 012130 052737 000100 001124 BIS #100, $GDDAT SSTORE EXPECTE 
7170 012136 111315 MOVB s SREAD IRR BITS,GROUP 2 
7171 012140 023715 001124 CMP SGDDAT, (RS) 
7172 012144 001401 BEQ 5$ 
7173 012146 104003 ERROR 3 zIRR ERROR,GROUP 2 
7174 012150 005063 000002 5$: CLR 3(R3) [CLEAR DBRD FOR RPY 5(B) 
7175 012154 052737 000040 001124 BIS #40, $GDDAT SEXPECTED 
7176 012162 111315 MOVB (R35, (RS) TREAD IRR BITS GROUP 2 
7177 012164 023715 001124 CMP $GDDAT, (RS) 
7178 012170 001401 BEQ $ 
7179 012172 104003 ERROR ;IRR ERROR,GROUP 2 
7180 012174 005761 000002 6$: TST 3(R1) [READ DBRB FOR RPLY 7(D) 
7181 012200 052737 000200 001124 BIS #200, $GDDAT 
7182 012206 111315 MOVB = (R3).(R5) :READ IRR BITS GROUP2 
7183 012210 023715 001124 CMP SGDDAT, (RS) 
7184 012214 001401 BEQ 7$ 
7185 012216 104003 ERROR ; IRR ERROR,GROUP 2 
7186 012220 005724 7$: TST (R4)+ SINDEX DATA TABLE 
7187 012222 020427 013464 CMP R4, #ENDDAT SCHECK FOR END 
7188 012226 001271 BNE 1$ [D0 NEXT PATTERN 
ae 
7192 g SERA RAAAE AERA AEERAAEE EEE EEE AE EEEEERAEEEEEAEEEEREEEEEAEEEEEEEEEEREEE 
(3) S*TEST 47 TEST IRR BITS WITH DATA PAT..POLLED MODE,ACT. HIGH 
(3) bd 2 SETEAAAAEAAEAERAEEAEEAEEEREAEAEEAEAEAAAAEAERAEAEAAEAAAEAEREEEEREEEEEE 
(2) 012230 000004 1S147: SCOPE 
7193 012232 004737 013056 JSR PC,CLRCSR SCLEAR ALL CSRS 
719% 122 012703 013164 MOV #BEGPAT,R3 *GET DATA PATTERN TABLE 
7195 012242 012737 000001 001110 MOV #1, $LPERR *SET UP SCOPE ADDRESS 


EE ET 
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7196 012250 013700 001342 
7197 012254 013701 001346 
7198 012260 BEA 001356 
7199 012264 11578 000001 
7200 O12272 112761 000001 
7201 012300 116718 oobsse 
7202 012304 112760 000224 
7203 012312 005060 000002 
7204 815318 112710 000020 
7205 pisses 112760 000020 
7206 012330 011360 000002 
7207 012334 010137 112 
7208 012340 112710 000250 
7209 012344 111337 001124 
7210 012350 111715 
7211 012352 023715 001124 
7212 012356 001401 
7213 012360 104003 
7214 012362 H's £34 001122 
7215 012366 112 4 000250 
7216 012374 A183 7? 000001 
7217 012402 042737 000360 
7218 012410 052737 0001 
7219 012416 111215 
7220 012420 023715 001124 
7221 012424 001401 
uss 019480 est 
#552 919439 900807 013464 
7225 012436 001325 
7226 
7227 
7228 

(3) 

(3) 

‘33 012440 000004 

(1) 012442 012737 000001 
7229 012450 004737 Barezs 
7230 012454 aE Ta! 00134 
7231 012460 013701 001346 
7232 012464 115760 001001 
at 012472 11 44! 000091 
72 012500 010037 001122 
7235 012504 912737 100300 
72 ot 512 5 
723 12514 Bi 3812 
7238 01 236 15 00 
7239 012522 023715 001124 
7240 3 268 001401 
7241 0125 103006 
7242 0125 127 190008 
7243 01254 10137 00112 
7244 at 544 011115 
7245 01 26 023715 001124 
7246 012552 001401 
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000001 
000001 
000010 


000010 


000010 
001124 
001124 
001124 


001160 


000001 
000001 
001124 


001124 


MOV DRCSD,R2 
MOVE #BITO,1(RO) 
MOVB #BITO,1(R1) 
MOVB #224, (RO) 
MOVB #224,10(RO) 

1$: CLR 2(ROS 
MOVB = CIRM, (RO) 
MOVB #CIRAR 10(RO) 
MOV (R3) ,2¢RO) 
MOV R1, SBDADR 
MOVB = #MIRR, (RO) 
MOVB _ (R3), $GDDAT 
MOVB = (R1). (RS) 
CMP SGDDAT, (RS) 
BEQ $ 
ERROR 

2$: MOV R2,$BDADR 
MOVB #MIRR,10(RO) 


#360, $GDDAT 
BIS #100. $GDDAT 
MOVB R2), ) 

CMP SDDAT. (5) 


BEQ 
ERROR 
3$: TST (R3)+ 
CMP R3,#ENDDAT 
BNE 1$ 


:CSRA OUTPUT MODE 

3CSRB OUTPUT MODE 

LOAD MODE BITS FOR POLLED MODE ,GP1 
sLOAD MODE BITS FOR POLLED MODE ,GP2 
CLEAR DBRA 

sCLEAR IMR +IRR GROUP 1 

sCLEAR IMR_+ IRR GROUP 2 

STORE PATTERN INTO DBRA 

sCSRB ADDRE 

3LOAD BITS TO READ IRR1 


sREAD IRR,GP1 


;IRR ERROR,GP1 
[CSRD ADDRESS 

[SET MODE TO READ IRR BITS GROUP 2 
TBUILD EXPECTED DATA 

3BITS 0-3 EXPECTED 

"A" REPLY EXPECTED 

TREAD IRR2 


3IRR_ GROUP 2 

INDEX DATA TABLE 
CHECK FOR PATTERN END 
D0 NEXT PATTERN 


SS RRAEAAAAAAAAAAAAAAAAAAAERATAAARAARARARARAAAAARARAAARARAERAAAAERERE 


T*TEST 50 


TEST CSRA AND CSRB WITH RESET 


SRAAAAEAAAAAEAEREAAEEEEREREAAEAAARAAAAAAAAEAARARAAAAAERARAAAREREREE 


TST50: Scop 


MOV #1,STIMES 
JSR PC,CLRCSR 
DRCSA,RO 


MOVB 
MOV RO, $BOADR 
MOV #160300, $GDDAT 
RESET 
MOV (RO), (RS) 
BIC # 
CMP SGDDAT, (RS) 
BEO 1$ 
ERROR 2 

1$: MOV #100000, $GDDAT 
MOV R1 SBDADR 
MOV (R1), (RS) 
CMP SGDDAT, RS) 
BEQ TST51 


DRCSB,R1 
MOVB aie iBiTO 1<R0) 
#B1T0,1(R1) 


3;D0 1 ITERATION 
CLEAR ALL CSRS 


sCSRA TO OUTPUT MODE 
:$ SRB TO ede MODE 


; A ADDRESS 
:RDY + CHIP STATUS EXP"D 
; INITIALIZE 

ZSTORE REC'D 

:CLEAR UNDEFINED BITS 
ZMAKE COMPARE 

:CSRA ERROR ON RESET 
SSTORE EXPECTED 


sCHECK CSRB 
sSTORE IN SBDDAT 
: COMPARE 


K 
33BR IF EQUAL 


SEQ 0040 
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7247 012554 104002 
7248 
7249 
7250 
(3) 
(3) 
: ; 012556 000004 
(1) 012560 012737 000001 
| 7251 0125 004737 013056 
| 7252 O12 013702 001352 
| 7253 012576 013703 001356 
| 7254 012602 Vi¢76¢ 000001 
7255 012610 112763 00000 
7256 012616 010237 001122 
| 725? 012622 012737 100200 
| 2258 012630 000005 
7259 012632 011215 
7260 012634 of TAs 000007 
7261 012640 023715 001124 
7262 012644 001401 
7263 012646 104002 
7264 012650 010337 001122 
7265 012654 012737 100000 
7266 012662 011315 
7267 012664 023715 001124 
7268 012670 001401 
7269 aE 24 104002 
7270 012674 
7271 


————— 


MACY11 


001160 


000001 
000001 


001124 


001124 


30¢ 
15 


s*TEST 51 


SS RRERAAAAAAAARARAAEAAEREREAEAAAAAAAAARERAAERAAERAAAEAEAAAERAAAEREE 


$151: SCOPE 
MOV #1,STIMES 3:D0 1 ITERATION 
JSR PC-CLRCSR 
MOV DRCSC,R 
V DRCSD.R 
MOVB #BITO,1(R2) :SET CSRC TO OUTPUT MODE 
MOVB #B1T0,1(R3) :SET CSRD TO OUTPUT MODE 
MOV R2,$BDADR [STORE ADDRESS 
MOV #100200,$GDDAT :RDY + CHIP STATUS 
RESET S INITIALIZE 
MOV (R2), (RS) ‘STORE CSRC 
BIC s [CLEAR UNDEFINED BITS 
CAP SGODAT, (RS) [MAKE COMPARE 
ERROR 2 :CSRC ERROR WITH RESET 
1$: MOV R3, $BDADR [CHECK CS 
MOV #100000,$GDDAT :STORE EXPECTED 
MOV R3),(R5) [READ CSRD 
CMP SGDDAT. (R5) [MAKE COMPARE 
- ERROR 2 ZCSRD ERROR ON RESET 


1046) 
0 


C 4 
15=DEC-82 15:25 PAGE 59-2 
TEST CSRA AND CSRB WITH RESET 


ERROR 2 


FERRARA RERAEAAAAERAEAEAEEE AERA AAAAAERAAEAAREREEEREEEEAAHERARAEAEEEE 


TEST CSRC AND CSRD WITH RESET 


3CSRB ERROR WITH RESET 


SEQ 0041 


D 4 
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CNDRCA.P11 10=DEC=82 14:37 151 TEST CSRC AND CSRD WITH RESET SEQ 0042 
7273 
ire 
7276 ;DON'T REPORT "EOP'’ UNTIL ALL SELECTED DRV11-J'S HAVE BEEN TESTED. 
7277 012674 013701 001342 NXDEV: MOV DRCSA,R1 sINIT TO SETUP NEXT DRV11J ADDRESSES 
7278 012700 000241 NXDEV1: CLC SCLEAR CARRY FOR DEVICE MAP 
7279 012702 006037 001364 ROR DMAP sLOOK FOR NEXT DRV11 
7280 012706 001412 BEQ SEOP ‘BR IF ALL TESTED 
7281 012710 162701 000020 SUB #20,R1 ‘NEXT DRV11=<J STARTS -20 
7282 012714 005237 001202 INC SUNIT UBDATE UNIT NUMBER 
7283 012720 032737 000001 001364 BIT #1, DMAP 31S UNIT SELECTED? 
7284 012726 001764 BEQ NXDEV1 ‘NEXT, IF NOT SELECTED 
7285 012730 000137 002032 JMP NEXPAS :TEST NEXT DRV11-J 
7286 .SBTTL END OF PASS ROUTINE 
(2) FRRAAAAEEAAAEAAEAAEEEEE EEE EEEEEEREEEAERAERAEREREREEEE 
(1) : SINCREMENT THE PASS NUMBER ($PASS) 
(1) :*TYPE "END PASS Tt (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) ‘IF THERES A MONITOR GO TO IT 
1) :*]F THERE ISN'T JUMP TO START 
(1) 012734 SEOP: 
(2) 012734 000240 NOP 
(1) 012736 005037 001102 CLR STSTNM 3 ZERO THE TEST NUMBER 
(1) 012742 005037 001160 CLR STIMES +:ZERO THE NUMBER OF ITERATIONS 
(1) 012746 005237 001176 INC SPASS d INCREMENT THE PASS NUMBER 
(1) 012752 042737 100000 001176 BIC #100000, $PASS DON T ALLOW A NEG. NUMBER 
(1) 012760 005327 DEC (PC)+ 3;LOOP? 
(1) 012762 1 SEOPCT: .WORD 
(1) 012764 003022 BGT SDOAGN 77 YES 
(1) 012766 012737 MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 
(1) 012770 000001 SENDCT: .WORD 1 
(1) 012772 012762 SEOPCT i 
(1) 012774 104401 013041 SENDMG ri: TYPE "END PASS * 
(2) 013000 013746 001176 MOV $PASS,-(SP) ::SAVE SPASS FOR TYPEOUT 
(2) 013004 104405 TYPDS 7:60 TYPE==DECIMAL ASCII WITH SIGN 
(1) 013006 104401 013036 TYPE SENULL 7: TYPE A NULL CHARACTER 
(1) 013012 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR A 
(1) 013016 001405 BEQ $DOAGN +:BRANCH IF NO MONIT 
(1) 013020 000005 RESET S:CLEAR THE WORLD 
(1) 013022 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
(1) 013024 000240 NOP 7: SAVE ROOM 
(1) 013026 240 NOP 33 
(1) 013030 00024 NOP S:ACTI1 
(1) 013032 SDOAGN: 
(1) 013032 000137 JMP a(PC)+ 7 RETURN 
(1) 013034 001766 SRTNAD: .WORD START 
(1) 
(1) 013036 377 377 000 S$ENULL: .BYTE 9 :NULL CHARACTER STRING 
(1) 013041 015 042412 042116 SENDMG: .ASCIZ <igel >/END PASS @ 
(1) 013046 050040 051501 02012 
(1) 013054 000043 


rr 


Se Men A he ERS otek tabard 7 ar Sa E 4 
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/CNDRCA. P11 10=DEC-82 14:37 PROGRAM SUBROUTINES SEQ 0043 
| 7288 .SBTTL PROGRAM SUBROUTINES 

7291 PITTI IT IIIT IIIT ITI TTI TI III Titi iii ii iiiitiiiiiitiiiitiiiitiy 

729 TELEAR R ALL CONTROL /ETATYS REGISTERS 

729 sINIT REGISTERS Pint WITH CSRA=CSRD 

7294 AND STORE SBDDA T INTO RS. 

7295  esagaceseaneseaerceseestonsnesncenaobonbnotossuusoneqnsesnnened 

7296 013056 012705 001126 tircsr: MOV #SBDDAT,RS BAD DATA sronaee IN RS 

7297 013062 013700 001342 MOV —DRCSA, RO CSRA ADDRESS TO RO 

7298 013066 013701 001346 MOV DRCSB.R1 [CSRB ADDRESS 10 R1 

7299 013072 013702 001352 MOV DRCSC,R2 SCSRC ADDRESS TO R2 

7300 013076 013703 001356 MOV DRCSD,R3 SCSRD ADDRESS TO R3 

7301 013102 005037 001124 CLR $Gorat SCLEAR EXPECTED 

7302 013106 005015 CLR CLEAR 

7303 013110 005010 CLR (RO) ZCLEAR CSRA; cue RESET GROUP 1 

7306 013112 105061 000001 CLRB 1(R1) 7CLEAR HIGH BYTE CSRB 

7305 013116 C544 CLR (R2) CLEAR CSRC;CHIP RESET GROUP 2 

7306 013120 105063 000001 CLRB 1(R3) [CLEAR HIGH BYTE CSRD 

7307 013124 207 RTS PC 

7309 

7310 CLEAR IRR REGISTERS, 5 ual 1,GROUP 2 WITH CHIP RESET 

7311 013126 010046 CLRIRR: MOV RO,-(SP) 

7312 013130 013700 001342 MOV DRCSA,RO s START OF CSR ADDRESS 

7313 013134 105060 000011 CLRB 17(ROS ;CSRC TO INPUT MODE 

7314 013140 112760 000001 000001 MOVB #B1T0,1(RO) ZCSRA TO sureut MODE 

7315 013146 005060 000002 CLR 2(RO) 7CLEAR DBRA 

7316 013152 105010 CLRB (RO) CHIP RESET OF GROUP1 

7317 013154 105060 000010 CLRB 10(RO) SCHIP RESET OF GROUP 2 

7318 013160 012600 Vv (SP)+,R0 SRESTORE REGISTER 

7319 013162 000207 RTS PC EXIT 


_ wee ee a ees -- 2 ae ee + - ee eee 
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CNDRCA DRVI1J DIAG TST PRI? 
CNDRCA.P11. 10=DEC=82 14:37 PROGRAM SUBROUTINES SEQ 0044 
| 7322 

7528 “SBTTL PATTERNS FOR REGISTER R/w 

7528 * PATTERNS USED FOR LOADING/READING REGISTERS 
| 7357 013164 000000 BEGPAT: 0 :GROWING 1 
| 7328 913166 990001 BGPATI: 1 

7359 013170 000003 3 

7330 013172 000007 : 

7331 013174 000017 17 

7332 013176 37 37 

7333 013200 000077 of 

7334 013202 000177 177 

7335 013204 000377 377 

7336 013206 000777 EDCHP1: 777 

7337 013210 001777 1977 

7338 013312 003777 3777 

5339013914 007777 s055 

7340 013916 017777 19777 

7341 013220 037777 37777 

7342 013922 077777 

7343 013994 177777 197797 

7344 013296 177776 BGCHP2: 177776 SGROWING 0 

7345 013930 177776 197776 

7346 013932 177770 197776 

7347 013934 177760 177760 

7348 013236 177740 177740 

7349 015240 177700 177700 

7380 013342 177600 177600 

7351 013244 177400 EDCHP2: 177400 

7382 013946 177000 177000 

7383 013950 176000 176000 

7354 013952 174000 174000 

7385 013254 170000 170000 

7386 013956 160000 160000 

7387 013960 140000 120000 

7358 015262 100000 100000 

7360 013264 000000 000000 

7361 013266 000001 BGCHP3: 1 SWALKING 1 

7362 013270 000002 2 

7363 013272 000004 

7364 013974 000010 10 

7365 013276 000020 20 

7366 013300 000040 £0 

7367 013302 000100 100 

7368 013304 000200 200 

7369 013306 00 EDCHP3: 400 

7370 013310 001000 1000 

7371 013312 002000 2000 

7372 013314 004000 £000 

7373 013316 010000 10000 

7374 013320 020000 20000 

7375 013392 040000 0000 

7376 013324 100000 10000 

7377 013326 177777 17777 WALKING 0 


CNDRCA DRV11J DIAG TST PRT 


CNDRCA.P11 10=DEC=82 14:37 


7378 013330 177776 
7379 013332 «177775 
7380 013334 177773 
7381 013336 177767 
7382 013340 177757 
73383 013342 177737 
7384 013344 177677 
7385 013346 177577 
7386 013350 177377 
7387 013352 176777 
7388 013354 175777 
7389 013356 173777 
7390 013360 167777 
7391 013362 157777 
7392 013364 137777 
7393 013366 077777 
7394 013370 177777 
7395 0133572 000000 
7396 

7397 

7398 013374 155555 
7399 013376 133333 
7400 013400 066666 
7401 013402 125252 
7402 013404 052525 
7403 013406 177777 
7404 013410 000000 
7405 013412 107070 
7406 013414 070707 
7407 013416 144444 
7408 013420 033333 
7409 013422 011111 
7410 013424 022222 
7411 013426 044444 
7412 013450 111111 
7413 013432 166666 
7414 013434 010421 
7415 013436 021042 
7416 013440 031465 
7417 013442 042104 
7418 013444 063146 
7419 013446 073567 
7420 013450 104210 
7421 013452 114631 
7422 013454 135673 
7423 013456 146314 
7424 013460 156735 
7425 013462 167356 
ms8 013464 000000 
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PATTERNS FOR REGISTER R/W 


BGCHP4: 17777 
97778 


EDCHP4: 


177777 
ENDPAT: 000000 
;DATA_ PATTERNS 
PATDAT: 155555 


nw 
ORs 
AMEN -WE NOONUINOW 


OOOO 0000-00-00 
—FN-WEON 


& 
WN 


VIN NWO SOO SM 


St 
SOOusw-o 


S 


aw 


ENDDAT: 000 


PEN ie a I, EE 13 FE En IM be 


SEQ 0045 


-———-- - -- ne we eee ee ---- a 
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(CNDRCA.P11 = 10=DEC=B82 14:37 SYSMAC ROUTI SEQ 0046 
7429 .SBTTL SYSMAC ROUTINES 
| 7431 .SBTTL TYPE ROUTINE 
| (2) FARAAAAAAAAAAERAEAEKE SE EAAEAAEAAARAAREAAAAEEAEEEEEEEEREEREREREEEEE 
a) : SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 vt + 
 * 255 :*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
| (1) s*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; a  *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER EMARACTERS REQUIRED. 
| aH s*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
~ 
| @D T*CAL 
(1) 71) LOSING A TRAP INSTRUCTION 
(1 ae TYPE ,MESADR Z:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 
(1) be TYPE 
| (1) * MESADR 
i 
(1) 013466 105737 001157 $TYPE: TSTB  $TPFLG 3318 THERE A TERMINAL? 
(1) 013472 100002 BPL 1$ 
(1) 013474 HALT +t HERE IF NO TERMINAL 
(1) 013476 30 BR 2 sLEAVE 
(1) 013500 010046 1$ MOV RO,-(SP) SSAVE RO 
(1) 013502 017600 000002 MOV a2(sP),RO tIGET ADDRESS OF ASCIZ STRING 
(1) 013506 122737 000001 001210 CMPB  #APTENV,SENV =: RUNNING IN 
(1) 013514 001011 BNE 62$ t:NO,GO CHECK FOR Apt CONSOLE 
(1) 013516 132737 000100 001211 BIT8 § #APTSPOOL,SENVM 33 SPOOL ME SSA GE TO A 
(1) 013524 001405 BEQ 62$ t:NO,GO CHECK FOR CONSOLE 
(1) 013526 010037 013536 MOV RO,61$ +: SETUP MESSAGE ADDRESS FOR APT 
(1) 013532 004737 013756 JSR PC; SATY3 2SSPOOL MESSAGE T 
(1) 013536 61$:  .WORD : :MESSAGE 
(1) 013520 90000 000040 001211 62$ BITB § #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
(1) 013546 001003 E s:YES,SKIP TYP 
(1) 013550 11206 23: MOVB (RO) +,-(SP) ee. car ER TO BE TYPED ONTO STACK 
(1) 013552 001005 BNE 4$ ::BR IF IT ISN'T THE TERMINAT 
(1) 013554 005726 TST (SP)+ :31F TERMINATOR POP IT OFF THE STACK 
(1) 013556 012600 60$: MOV (SP)+,RO [RESTORE RO 
(1) 013560 062716 000002 3$: ADD #2, (SP) 3 ADJUST RETURN PC 
(1) 013564 000002 RTI N 
(1) 013566 122716 000011 4$: CMPB #HT, (SP) + :BRANCH IF <HT> 
(1) 013572 001430 BEQ 
(1) 013574 122716 000200 CMPB es @ CRLF, (SP) ::BRANCH IF NOT <CRLF> 
(1) 013600 001006 BNE 5$ 
(1) 013602 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
(1) 013604 104401 TYPE ::TYPE A CR AND L 
(1) 013606 001165 SCRLF 
(1) 013610 105037 013744 CLRB  $CHARCNT Z:CLEAR CHARACTER COUNT 
(1) 013614 000755 BR 2$ t:GET NEXT CHARACTER 
(1) 013616 004737 013700 5$: JSR PC ,STYPEC £:G0 TYPE THIS CHARACTER 
(1) 013622 123726 001156 6$: CMPB Os SFILLC,(SP)*  ::1S IT TIME FOR FILLER CHARS.? 
(1) 013626 00135 BNE ::1F NO GO GET NEXT CHAR. 
(1) 013630 013746 001154 MOV SNULL (SP) [:GET # OF FILLER CHARS. NEEDED 
(1) T:AND THE NULL CHAR. 
(1) 013634 105366 000001 7$: DECB.—s«AA( SP?) t:DOES A NULL NEED TO BE TYPED? 
(1) 013640 00277 BLT 6$ [:BR IF NO=-GO POP THE NULL OFF OF STACK 


| I 4 
CNDRCA DRVI1J_ DIAG TST PRTI MACY11 30(1046) 15-DEC=82 15:25 PAGE 61-3 


‘CNDRCA.P11 «=: 10=DEC-82 14:37 TYPE ROUTINE SEQ 0047 
1) 013642 004737 013700 JSR PC, STYPEC ::G0 TYPE A NULL 
1) 01 3646 105337 013744 DECB  $CHARCNT ::D0 NOT COUNT AS A COUNT 
» 013652 000770 BR 7$ LOOP 
| 1 sHORIZONTAL Ta PROCESSOR 
| 1) 0136546 112716 000040 8$: MOVB (SP) ::REPLACE TAB WITH SPACE 
1) 013660 004737 013700 9$: JSR i /STYPEC 33 TYPE A SPACE 
1) 013664 132737 000007 013744 B1T8 SCHARENT ::BRANCH IF NOT AT 
1) 013672 001372 BNE ::TAB STOP 
| GD) 01367 005726 TST (SPDe ZIPOP SPACE OFF STACK 
1) 013676 000724 BR 23 t:GET NEXT CHARACTER 
1) 013700 105777 165244 STYPEC: TSTB aSTPS t:WAIT UNTIL PRINTER IS READY 
1) 013704 100375 BPL STYPEC 
» 013706 116677 000002 165236 MOVE  2(SP),a$TPB z:LOAD CHAR TO BE TYPED INTO DATA REG. 
1) 013714 122766 000015 000002 cCMPB #CR,2(SP) 31S CHARACTER A CARRIAGE RETURN? 
1) 013722 001003 BNE 1$ ;BRANCH IF NO 
1) 013726 105037 013744 CLRB SCHARCHT I YES==CLEAR CHARACTER COUNT 
1) 013730 000406 BR $TY xIT 
1) 013732 122766 000012 000002 1$: CMPB aLF ees) cing CHARACTER A LINE FEED? 
1) 013740 001402 BEOQ $TY 7:BRANCH IF YES 
1) 013742 105227 INCB tPeee : BOUNT THE CHARACTER 
1) 013744 000000 SCHARCNT:.WORD 0 T:CHARACTER COUNT STORAGE 
» 013746 000207 STYPEX: RTS PC 
1) 
1) 


-SBTTL APT COMMUNICATIONS ROUTINE 


—PPARARAAALALALALALAAAAAALAAA AAAS E AAA ASAE AAR AAR ARERR REAR RRR RRA GS 


“N 
Ree 4 SRR RFR FRR RR EEE PEE EEE EPP PPR PR POPP PP Pe EEL PR PP PP 


1) 
2) 

1) 013750 112737 000001 014214 $ATY1: mova. #1 LSFFLG £210 REPORT FATAL ERROR 

1) 013756 112737 000001 014212 SATY3: MOVB 4#1.$MFLG [TO TYPE A MESSAGE 

1) 013764 000403 BR saty YC 

1) 013766 112737 000001 014214 Satya: MOVE #1, SFFLG z:TO ONLY REPORT FATAL ERROR 
3) 013774 010046 MOV RO,-(SP) ::PUSH RO ON STACK 

3) 013776 010146 MOV R1.=(SP) +:PUSH R1 ON STACK 

1) 014 105737 014212 TSTB = SMFLG 3 3 SHOULD TYPE A MESSAGE? 

1) 014004 001450 BEO 5$ T: 

1) 014 122737 000001 001210 CMPB 0s MAP TENV, SENV 3 OPERATING UNDER APT? 

1) 014014 1031 BNE 3$ SIF NOT: 

1) 014016 132737 000100 001211 BIT8 $$ #APTSPOOL,SENVM 33 SHOULD. SPOOL MESSAGES? 

1) 014024 001425 BEOQ 3 

1) 014026 017600 MOV 4 (SP) RO TIGET MESSAGE ADDR. 

1) 0140 0627 900002 000004 ADD (86) ETURN A 

1) 014040 005737 00117 1$: TST sag s7SEE IF “DONE W/ LAST NMI SS10N? 
1) 014044 001375 BNE 1$ s:1F NOT: WAIT 

1) 014046 010037 001204 MOV RO, SMSGAD 

1) >;PUT ADDR IN MAILBOX 

1) 014052 105720 28: STB 2S (ROD + ZF IND END OF MESSAGE 

1) 014054 001376 BNE 2$ 

1) 14056 163700 001204 SUB SMSGAD,RO 33 SUB START OF MESSAGE 

1) 014062 0062 ASR RO T:GET MESSAGE LNGTH IN WORDS 
1) 014 91003 001206 MOV RO, SMSGLGT [PUT LENGTH IN MAILBOX 

1) 014070 012737 000004 001170 MOV #4, SMSGTYPE tC TELL APT TO TAKE MSG. 
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CNORCA.P11 10=DEC COMMUNICATIONS ROUTINE SEQ 0048 
/  «1)) 014076 000413 BR 5$ 
(1) 014100 01765 000004 014124 3$: MOV a4 (SP) ,4$ :3PUT MSG ADDR IN JSR LINKAGE 
(1) 014106 06¢ 66 000002 000004 ACD 4 4($P) bun RETIIRN ADDRESS 
(3) 014114 013746 177776 MOV 177776, =(SP) 72 PUSH 195 6 ON STACK 
(1) 014120 004737 013466 JSR PC ,STYPE S:CALL TYPE MACRO 
(1) 014124 4$: . WORD 
(1) 014126 S$: 
| @ 014126 105737 014214 10$: TSTB = SFFLG ::SHOULD REPORT FATAL ERROR? 
| ¢1) 01461 001416 BEOQ 12$ SIF NOT: BR 
| (1) 014134 005737 001210 TST SENV 3 RUNNING UNDER APT? 
(1) 014140 001413 BEOQ 12$ F 
(1) 014142 005737 001170 11$: TST SMSGTYPE ; FINISHED LAST MESSAGE? 
(1) 014146 001375 BNE 11 F NOT: WAIT 
(1) 014150 017637 000004 001172 MOV a4(SP),SFATAL ::GET ERROR t 
' (1) 014156 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDR. 
(1) 014164 005237 001170 INC SMSGTYPE Zi TELL abt TO TAKE ERROR 
(1) 014170 105037 014214 12$: CLRB  $FFLG T:CLEAR FATAL FLAG 
(1) 014174 105037 014213 CLRB ss SLFLG TICLEAR L 
(1) 916200 105037 014212 CLRB ss SMF 33CLEAR MESSAGE FLAG 
(3) 014204 012601 MOV (SP)+,R1 : STACK INTO R1 
(3) 014206 012600 MOV (SP)+,RO i POP STACK INTO RO 
(1) 014210 000207 RTS PC RETURN 
(1) 01421 000 SMFLG: .BYTE 0 T:MESSG. FLAG 
(1) 01421 000 SLFLG: .BYTE 0 
(1) >;LOG FLAG 
(1) 014214 000 SFFLG: .BYTE 06 ZFATAL FLAG 
(1) 014216 EVEN 
(1) 000200 APTSIZE= 00 
(1) 000001 APTENV= 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
7433 .S8STTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) FRMAAAAAAAHEAAAAAAEAASAAHEAEKAEHEREEAAAEAAEEAEHEEAAERAHERAKEAAEEEE 
(1) tSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) :#0CTAL (ASCII) NUMBER AND TYPE IT. 
i) 3 *STYPOS~--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
3* 
(1) ie NUM, =(SP) :NUMBER TO BE TYPED 
(1) it TYPOS tICALL FOR TYPE 
(1) 3* .BYTE ON t:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) i* .BYTE M +:M=1 OR 
(1) ie 77 1=TYPE LEADING ZEROS 
(a) i* 7;0=SUPPRESS LEADING ZEROS 
*® 
(1) [*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) i e$T¥POS or $TYPOC 
a) ; MOV NUM, =(SP) ::NUMBER TO BE TYPED 
(1) i TYPON [:CALL FOR TYPEOUT 
CD {$TYPOC=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
(1) ie MOV NUM, =(SP) ::NUMBER TO BE TYPED 
HH :* TYPOC Z7CALL FOR TYPEOUT 


‘CNDRCA DRVI1J DIAG TST 


CNDRCA.P11 


ee ee ee ee ee ee ee ee ee a ee ee ae ce a a ee ee ce ee a a ee ld ed a ad ed od ad ed 
i SY 
SOOSOSOSOCSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSSOC Co ooooooooooooooooooooooooooo 
pe ee er er ee ne ee er ee ee ee er ee ee ee re Pe ane ee oe ee ee oe ae ee er ee er er ee er ee er ee er er er er er er er 


N 
Fae Le te ae Len ee tee tae, ee, a, a, ee, a ee, Le ae Lee Le ee ae ae Lee Leelee Lele leleleietleleielee)eieietletaeteieteleteletete, 


=—\— 
www 


¥ 


[- 


WN — 
ono 


WU es & 


SENSRRNSRORSANGRPAOVOS 


SRERAAL LEANN SOS 
MOA SMA LO 
SO=AnSSoor 

ees 


Fak tat al el ttt ee a a a a a a a ak UE ek 
MW 


BREW 


rs 
GEERRNSARVSENRON 


RERESEEEES 
BRRARRRER 


10=DEC=82 


=-CO00——4— 


ssegeeeensascepesee=cte 
WOUSSSSSSS=USSss5ssss S 


oS 
we 


rs 
NN Nw 


ROS 


ooooo 
3 


3 
_ 
or 


Ecssst 


T1 
:37 


000005 


014443 


000006 
014442 
014441 
000012 


014442 
177770 


36 
014436 
014440 


000002 
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NARY TO OCTAL (ASCII) AND TYPE 


STYPOS: MOV 
014441 vB 


4441 $TYPOC: MOVB 
4440 S$TYPON: MOVB 


1$: oa 
2$: ROL 


3$: ROL 


4$: INC 
5$: BIS 


7$: DECB 


o$: MOV 
000004 MOV 
8$: BYTE 


SOCNT: ‘BYT 
SOFILL: .BYTE 
SOMODE : 


a(SP),-(SP) 


1(SP),SOFILL 
tne 


(SP)+ 
#2 


#6,R4 

R4 , SOMODE 
SOFILL,R4 
pater) ae 


(SP)+,R3 
2(SP) ,4(SP) 
(SP)+, (SP) 


3sPICKUP THE MODE 

3;LOAD ZERO FILL SWITCH 

ee ER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 


33SET THE ZERO FILL SWITCH 
33SET FOR SI1X(6) DIGITS 
33SET me ITERATION COUNT 
;sSAVE R 


33SAVE_RS5S 
33;GET THE NUMBER OF DIGITS TO TYPE 


3;SUBTRACT IT FOR MAX. ALLOWED 
3sSAVE_IT FOR USE 

3:GET THE ZERO FILL SWITCH 
23PICKUP_THE INPUT NUMBER 
ssCLEAR THE OUTPUT WORD 
3zROTATE MSB INTO ‘'C’’ 


S:FORM THIS DIGIT 


3:GET LSB OF THIS DIGIT 
ssTYPE THIS DIGIT? 
°°BR F NO 


338 
33GET RID OF JUNK 
si TEST F 

32SUPPRESS THIS 0? 

:;BR IF YES 

32:DON'T SUPPRESS ANYMORE 00'S 
33MAKE THIS DIGIT ASCII 
73MAKE ASCII IF NOT ALREADY 
33SAVE FOR TYPING 

33G0 TYPE THIS DIGIT 

*;COUNT BY 1 


33 COUN 
3:BR IF MORE TO DO 


SIINSURE LAST DIGIT ISN°T A BLANK 
i360 DO THE LAST DIGIT 


33 ORE R3 
3zSET THE STACK FOR RETURNING 


ETURN 
z3STORAGE FOR ASCII DIGIT 
33 TERMINATOR ‘= TYPE ROUTINE 


DE: .WOR 0 ee 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ff SARA REAAHAAAEAAAEAAA ET AEHKEETEAERAAAAAAEREREAAEAKEKEEEAA EKER Eee 


z*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


SEQ 0049 


poe ee 


CNDRCA DRV11J_ DIAG TST en 


/CNDRCA. P11 


- 
2 
a 


014444 


SEVSSRS 


~ 


FERER 


BELL LLLL LLL LLL LL ES 
Sessouee rs 
™m PP Pat QfeNOS 


AR RARA RA RARARRARRRAARRRRARAAR AAR RRRARR RAR AAR AAA AAA APP PPP PP 
ALVOOSO 


Om ak ad sk dk kd ad dh dd dd dd dd ed et td = LN ANI Ot ot ot ot 2 es 
ee er et et et ee et et et ee ee es er er er ee es ee ee a ee ee ee ee ee ee ee er ee ae ee a ee ae a a ee a ae a ae a a I ee 


SOOCOSOSOSOSOOSSSOS SOO SoOOoOSooOoOooooooeoo 
pa pene ee ee ene ae a oe ee ee er ee ee ee ee ee ee ee Pt 


10=DEC=82 1 


— ed weed eed od 

w 
RYNSSWE 
WRIPRIWINA UO 


aaee 


020200 
000020 
000055 
014660 
000040 


014650 


177777 


014660 
000002 


MACY11 30(1046) 


000001 


177777 


177776 


15=DEC-82_ 15:25 


L 4 
PA 


GE 61-6 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SS AUMDER Me poeir (ASCII) NUMBER AND TYPE IT DEPENDING ON WHETHER THE 


ITIVE OR yy A SPACE OR A MINUS SIGN 


WILL BE TYPED 


NUMB 
>*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


STYPDS: 


7$: 


8$: 


MOV 
TYPDS 


: #REPLACED WITH SPACES. 


NUM ,=(SP) 


RO,=(SP) 


(SP) 


1(SP),=1(R3) 
#°0,R2 


(SP)+ 


3;PUT_THE BINARY NUMBER ON THE STACK 
3360 TO THE ROUTINE 


fit RO ON STACK 
a3 PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON grace 
33PUSH RS ON STACK 
33SET SLAN sultcn AND SIGN 
3:GET THE INPUT NUMBER 


23SE TH PUT POINTER 
ziSET ne FIRST CHARACTER TO A BLANK 
32CLEAR THE BCD NUMBER 
33GET THE CONSTANT 

2 7FORM THIS BCD DIGIT 


2BR I 
INCREASE THE BCD DIGIT BY 1 


32 ADD BACK THE CONSTANT 

23 CHECK IF BCD DIGIT=0 
3FALL THROUGH IF 0 

z3STILL coins LEADING 0°S? 


;BR 
3MSD? 
33BR 
aa eee THE SIGN 
33MAXE THE BCD DIGIT ASCI 
33:MAKE IT A SPACE IF NOT ALREADY A DIG 
:7PUT THIS CHARACTER IN THE OUTPUT BUF 
37;JUST INCREMENTING 
s;CHECK THE TABLE INDEX 
3:G0 DO THE NEXT DIGIT 
3:60 EXIT 
33GET 55 


ee HANGE TO ASCII 

23WAS a LSD THE FIRST NON-ZERO? 
37YES--SET THE 24 FOR TYPING 
33SET THE TERMINA 


;POP 
3 POP ae INTO RO 
TZADJUST THE STACK 


SEQ 0050 


woe a ee Ce ee ee Ce + + e+ 


Mm 4 
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‘CNDRCA.P11 =» -10=D fceke 14237 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0051 
(1) 014644 012616 MOV (SP)+, (SP) 
(1) 014646 ~©000002 RTI ;;RETURN TO USER 
/ (1) 014650 023420 $DTBL: 10000. 
1) 014652 001750 1000, 
| 1) 014654 «000144 100. 
| C) 014656 000012 0. 
(1) 014660 SDBLK: .BLKw 4 
7435 .SBTTL ERROR HANDLER ROUTINE 
| (2) FARRAR AAAAAERAAEAE EERE ER EEAAREAAEEAEEAEEEEEEREREREREREEEEEE 
(1) tSTHIS ROUTINE wit INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) [*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) :*AND GO TO SWRCK ON ERR 
(1) :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) *SW15=1 HALT ON 
(1) *SW13=1 INHIBIT ERROR TYPEOUTS 
C1) is8u09=t LOOP ON ERROR 
(1) 7* ERROR N y;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 014670 SERROR: 
(1) 014670 104407 CKSWR :TEST FOR CHANGE IN SOFT=SWR 
(2) 014672 104407 CKSWR :G0 LOOK “FOR SwWR CHAN ANGE 
(1) 014674 105237 001103 7$: INCB $ERFLG ziSET THE ERROR FLAG 
(1) 014700 001775 BEQ 7$ ::DON'T LET THE FLAG GO TO ZERO 
(1) 014702 013777 001102 164232 MOV STSTNM,@DISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 014710 005237 001112 INC ERTTL SINC THE ERROR COUNT 
(1) 0146714 01165 001116 MOV i P) SERRPC t:GET ADDRESS OF ERROR INSTRUCTION 
(1) 014720 162737 000002 001116 SUB »SERRPC 
(1) 014726 117737 164164 001114 MOVB asennrc, SITEMB zzSTRIP AND SAVE THE ERROR ITEM CODE 
(1) 014734 032777 020000 164176 BIT #B1T13,aSw 33SKIP TYPEOUT IF SET 
(1) 014742 001004 BNE 20$ :SKIP TYPEOUT 
(1) 014744 004737 015044 JSR PC, SWRCK 2360 TO USER ERROR ROUTINE 
(1) 014750 104401 001165 TYPE  ,$CRLF 
(1) 014754 20S: 
(1) 014754 122737 000001 001210 CMPB Ss #AP TENV, SENV i s RUNNING IN APT MODE 
(1) 014762 001007 BNE t:NO,SKIP APT ERROR REPORT 
(1) 014764 113737 001114 014776 MOVB SITEMB. 218 : Set ITEM NUMBER AS ERROR NUMBER 
(1) 014772 004737 013766 JSR PC, SAT t:REPORT FATAL ERROR TO APT 
(1) 014776 000 21$:  . BYTE 0 
(1) 014777 000 “BYTE 0 
(1) 015000 000777 22$: BR 228 :;APT ERROR LOOP 
(1) 015002 005777 164132 2$: TST aSWR S:HALT ON ERROR 
(1) 015006 100002 BPL 3$ 33SKIP IF CONTINUE 
(1) 015010 HALT S:HALT ON ERROR! 
(1) 015012 104407 CKSWR 33 TEST FOR CHANGE IN SOFT~SUR 
(1) 015014 032777 001000 164116 3$: BIT #B1T09,aSwR t:LOOP ON ERROR SWITCH SET? 
(1) 015022 001402 BEQ [:BR IF NO 
(1) 913024 013716 001110 MOV SLPERR, (SP) 3 FUDGE RETURN FOR LOOPING 
(1) 015030 005737 001162 4$: TST SESCAPE 33CH ECK FOR AN ESCAPE ADDRESS 
(1) 015034 001402 BEQ 5$ F NONE 
(1) o13843 013716 001162 - MOV SESCAPE.(SP) 2 FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 015042 000002 RTI : :RETURN 
7436 oe Reeheeeeaeeeeeeeeeeeeredeeeeeeaatedeteeeeeareeeaseceeeeeeeetere 
7437 60 TYPE ERROR 





a 





N 4 
/CNDRCA DRV11J DIAG TST PRT1 MACY11 30(1046) 15=DEC-82 15:25 PAGE 61-8 


\CNDRCA.P11 | 10=DEC=82 14:37 ERROR HANDLER ROUTINE SEQ 0052 
| 7438 :GO UPDATE SOFTWARE SWR IF ‘CNTRL/G* 

7439 REEERERAAAEAAEAAAAREREAEEEEKEEAEERAEAARAERAEAAEAEARAAAAREEEEEEREEEE 

7440 015044 113737 001102 001362 SiRcK: MOVB STSTNM.TSTNUN :SET UP TEST # ON ER 

7441 015052 004737 01506 JSR PC SERR 60 TY PE ERROR 

7442 015056 104407 CKkSWR 360 LOOK FOR SwR CHANGE 

7443 015060 000207 RTS. PE RETURN TOERROR HANDLER 

74a .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) FERRARA AAAEAREREE RARE AEE ERR EEAEREEAEEEEEREERERAAEREREEEE 
(1) tSTHIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITEMB) JO DETERMINE, WICH 
a) S#ERROR IS TO BE REPORTED. IT THEN OBTAINS, F E "ERROR TABLE’ (SERRTB), 
(1) SAND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 01506 SERRTYP: i om b 
(1) 015062 104401 001165 TYPE —, $CRLF SEUCARRIAGE RETURN" & “LINE FEED | 
(1) 015066 010046 mov. —s« RO. = (SP) SISAVE RO 
(1) 015070 005000 CLR —- RO SIPICKUP THE ITEM INDEX 
(1) 015072 153700 001114 BIS8  a#SITEMB,RO 
(1) 015076 001004 BNE 1$ :;1F ITEM NUMBER IS ZERO, JUST 
a) ITYPE THE PC OF THE ERROR 
(2) 015100 013746 001116 MOV _—soSERRPC,-(SP) 2 :SAVE SERRPC FOR TYPEOUT 
(3) S3ERROR ADDRESS 
(5) 015104 104402 TYPOC 3360 TYPE=-OCTAL ASCIICALL DIGITS) 
(1) 015106 000426 BR 6$ T OUT 
(1) 015110 005300 1$: DEC —RO i ADJUST 7 THE INDEX SO THAT 11 WILL 
(1) 015112 006300 ASL _—-RO 3 K FOR THE ERROR TABLE 
(1) 015114 006300 ASL — RO 
(1) 015116 006300 ASL RO 
(1) 015120 062700 001252 ADB —ASERRTB, RO FORM TABLE POINTER 
(1) 015134 012037 015134 MOV 1+, 28 TIPICKUP "ERROR MESSAGE"’ POINTER 
(1) 015130 001404 + SISKIP TYPEOUT IF NO POINTER 
(1) 015132 104401 TYPE S:TYPE THE "ERROR MESSAGE 
(1) 015134 00 2s: “WORD 0 ::VERROR MESSAGE” POINTER GOES. HERE 
(1) 015136 104401 001165 TYPE _,$CRLF SENCARRIAGE RETURN" & “LINE FEED" 
(1) 015142 012037 015152 3$: MoV. (RO)*,.4$ PICKUP DATA HEADER’ POINTER 
(1) 015146 001404 BEQ sé ZISKIP TYPEQUT IF 0 
(1) 015150 104401 TYPE TETYPE THE DATA HEADER" 
(1) 015152 000000 4$: WORD 0 ::TDATA HEADER" POINTER GOES. HERE 
(1) 015154 104401 001165 TYPE _, SCRLF SEUCARRIAGE RETURN’ & “LINE FEED™ 
(1) 015160 011000 S$: MOV. _— (RO). RO ::PICKUP "DATA TABLE” POINTER 
(1) 015162 001004 BNE 7$ $260 TYPE THE DAT 
(1) 015166 012600 6$: MOV _— (SP) +#, RO SIRESTORE RO 
(1) 015166 104401 001165 TYPE —, SCRLF ::"CARRIAGE RETURN" & “LINE FEED" 
(1) 015172 000207 RTS. ss + DRETURN 
(1) 015174 7s: 
(2) 015174 01304 MOY @(ROD#,-(SP) SAVE @(RO)* FOR TYPEQUT 
(3) 015176 10440 TYPOC £360 TYPE-“OCTAL ASCITCALL DIGITS) 
(1) 015200 005710 TST (RO) 1S THERE ANOTHER NUMBER? 
(1) 015202 001770 BEOO«éG6S *BR 
(1) 015204 104401 015212 TYPE 8S tITYPE TwO(2) SPACES 
(1) 015210 000771 BR 7$ +: LOOP 
(1) 015212 020040 000 8$: .ASCIZ / / +: TwO(2) SPACES 
D 015216 "EVEN 

7445 .SBTTL SCOPE HANDLER ROUTINESTARS 
(1) eTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
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; *AND LOAD THE TEST NUMBER(STSTNM) INTO THE raache eas « (DISPLAY<7:0>) 


ROR FLAG (SERFLG) INTO DISPLAY 


TEST FOR ata y IN SOF T=SWR 


:*AND LOAD THE ER 
:*THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
:*SW14=1 LOOP ON TEST 
7*SW11=1 INIT ITERATIONS 
:*SwO9=1 LOOP 0 
isSW08=1 LOOP ON TEST IN SWR<7:0> 
ie SCOPE 3;SCOPE=10T 
SSCOPE: 
1$: BIT #B1T14,aSWR 


$xTS 
MOV a#ERRVEC = (SP) 


MOV #5$, A#ERRVE 
TST ae 
MOV (SP) +, a#ERRVEC 
BR $SVLAD 
5$: CMP (SP)+, (SP)+ 


MOV (SP) +, a#ERRVEC 


BNE OVER 
pHAEHESTART OF CODE FOR THE XOR fEsteneeate 


::LOOP ON PRESENT TEST? 
S IF Swi4=1 


UNNING ON THE me TESTER CHANGE 

THIS INSTRUCTION *NOP*’ (NOP=240) 

sae THE CONTENTS "OF THE ERROR VECTOR 
T FOR f-y F 


:3TIME OUT _ON X 
ot THE ERROR VECTOR 
; re NEX 


tSCL THE STACK AFTER A TIME OUT 
t RESTORE THE ERROR VECTOR 
OOP ON THE PRESENT TEST 


BR “L 
6$:;:##ANREND OF CODE FOR THE XOR’ TESTERSAAM 
8 #B1T08,aswR 


IT 
BEQ 2 
CMPB ss @SWR, STSTNM 
BEQ SOVER 
28: TSTB = SERFLG 
BEQ 3$ 
CMPB ss SERMAX,, SERFLG 
BHI 3$ 
BIT #B1T09,aSwR 
BEQ 4$ 
7$: MOV SLPERR, SLPADR 
BR SOVER 
4$: CLRB  —s- SERFLG 
CLR TIMES 
BR 1$ 
3$: BIT #B1T11,aSwWR 
BNE 1$ 
TST $PASS 
BEQ 1$ 
INC SICNT 
CMP STIMES SICNT 
BGE SOVER 
1$: MOV #1 SICNT 
MOV SMXCNT, STIMES 
SSVLAD: INCB $TSTNM 
MOVB  $TSTNM,S$TEST 
MOV (SP) SLPADR 
MOV (SP) -SLPERR 
CLR SESCAPE 
MOVB «#1, SERMAX 


::L00P ON SPEC. TEST? 
T:0N THE RIGHT TEST? 
7:BR IF YES 
SHAS AN ERROR OCCURRED? 
T:MAX, ERRORS FOR THIS TEST OCCURRED? 
7:BR IF NO 
7:LOOP ON ERROR? 
T:SET LOOP ADDRESS TO LAST SCOPE 
ZERO. THE ERROR FLAG 

{CLEAR THE NUMBER OF ITERATIONS TO MAKE 
tSESCAPE TO THE NEXT TEST 
i SINMIBIT. ITERATIONS? 
:31F FIRST PASS OF PROGRAM 

ITERATIONS 


INHIBIT 
; LINCREMENT ITERATION oe Sot 
33CHECK THE NUMBER OF ITERATIONS MADE 


SWR<7:0> 


ITE 
F ITERATIONS TO DO 


OUN NUMBERS 
z3SET TEST NUMBER IN APT MAILBOX 
23SAVE SCOPE i rts ttt 


tee THE eStape APRON PRROR ADDRESS 
330NLY ALLOW ONE(1) ERROR ON NEXT TEST 


SEQ 0053 


ey 
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CNDRCA DRV11J DIAG TST PRTI 
‘CNDRCA.P11 —»-: 10=DEC=82 14:37 SCOPE HANDLER ROUTINESTARS SEQ 0054 

(1) 0154660 013777 001102 163454 SOVER: MOV STSTNM, aDISPLAY ::DISPLAY TEST NUMBER 

(1) 015466 13716 001106 MOV SLPADR, (SP) +:FUDGE RETURN ADDRESS 

(1) 015472 00000 RT a4 14 $ PS 

(1) 015474 00006 SMXCNT: 50. X. NUMBER OF ITERATIONS 

Thug .SBTTL TTY INPUT ROUTINE 

(2) FF RAAAAAAAAAARAAERAKEEEAEEAAEAAEEAAAAEAAARAEEEAAEEEAAAAEEREREREEENE 

(1) 

(1) 

(1) .ENABL LSB 

(2) FARAAAAARAARERAARAEREEAAAAEAEAAEAAREAEEAAAAAAERERAEAAEEREREAARAREE 

(1) + SSOF TWARE SWITCH REGISTER CHANGE ROUT INE 

(1) :*ROUTINE IS ENTERED FROM THE TRAP HANDL WILL 

(1) S*SERVICE THE TEST Por CHANGE IN SOFTWARE ReultcH” REGISTER TRAP CALL 

(1) + eWHEN OPERATING IN TTY FLAG MODE. 

(1) 015476 022737 000176 001140 $ckswR: CMP #SWREG, Suk 3518 THE SOFT=SWR SELECTED? 

(1) 015504 001074 BNE 15$ RANCH IF NO 

(1) 015506 105777 163432 TST8  a$TKS 23 CHAR THERE ? 

(1) 015512 100071 BPL 15$ F NO DON'T T iit AROUND 

(1) 015514 117746 163426 MOVE a$TKB,=(SP) +3 SAVE THE 

(1) 015520 042716 177600 BIC weci7? (SP) <3 ANIP-OFF THE ASCII 

(1) 015524 022726 000007 CMP (SP5+ iI IT A CONTROL G? 

(1) 015530 09106¢ BNE 106 RETURN TO USER 

(1) 015532 123727 001134 000001 CMPB AiToe.a1 SIAR Are WE RUNNING IN AUTO-MODE? 

(1) 015540 001456 BEQ 15$ t:BRANCH IF YES 

(1) 015542 104401 oe 3%) TYPE  ,$CNTLG z:ECHO THE CONTROL-G (*G) 

(1) 13546 104401 SGTSWR: TYPE  ‘S$MSWR I TYPE CURRENT CONTENTS | 

(2) 015552 013746 MOV SWREG,-(SP) 33SAVE SWREG FOR TYPEOU 

(2) 015556 104402 TYPOC 1:60 TYPE=-OCTAL ASCII CALL DIGITS) 

(1) 015560 104401 016241 TYPE ,$MNEW ::PROMPT FOR NEW SWR 

(1) 015564 005046 19$: CLR =(SP) tICLEAR COUNTER 

(1) 015566 005046 -( 

(1) :; THE NEW SWR 

(1) 015570 105777 163350 7$: 1STB. 0 aaSTKS z:CHAR THERE? 

(1) 015574 100375 BPL 7$ t:IF NOT TRY AGAIN 

(1) 015576 117746 163344 MOVB  a$TKB,-(SP) z:PICK UP CHA 

(1) 015602 716 177600 BIC #°C177, (SP) S:MAKE IT ae ASCII 

aD 

(1) 015606 021627 000025 9$: CMP (SP) #25 z:1S IT A CONTROL=U? 

(1) 015612 001005 BNE 10$ 3BRANCH IF NOT 

(1) 015614 104401 016216 TYPE  ,$CNTLU YES, ECHO CONTROL-U (*U) 

(1) 015620 062706 000006 20$: ADD #6, SP $ FIGNORE PREVIOUS INPUT 

(1) 015624 000757 BR 19$ S:LET’S TRY IT AGAIN 

(1) 

(1) 015626 021627 000015 10$: CMP (SP) #15 r:1S ITA <CR>? 

(1) 015632 001022 BNE 16$ 3 /BRANCH IF NO 

(1) 015634 005766 000004 TST 4(SP) 33YES, IS IT THE FIRST CHAR? 

(1) 615640 00140 BEQ 11$ SBRANCH IF YES 

(1) 015642 016677 000002 163270 MOV 2(SP) ,aSwR T:SAVE NEW SWR 

(1) 015650 062706 000006 11$: ADD #6,SP TICLEAR UP STACK 


0 5 
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‘CNDRCA DRV11J DIAG TST PRT1 
‘CNDRCA.P11 —-:10=DEC=82 14:37 TTY INPUT ROUTINE SEQ 0055 
1) 015656 104401 001165 14$: TYPE SCRLF z;ECHO <CR> AND <LF> 
— 1)--015660 «123727 001135 000001 CMPB ss SIINTAG, #1 ::RE*ENABLE TTY KBD INTERRUPTS? 
1): 015666 ~=—007003 BNE ::BRANCH IF NOT 
(1) 015670 012777 000100 163246 MOV #100 ,a$TkS S:RE*ENABLE TTY KBD INTERRUPTS 
| (1) 015676 90000¢ 15$: RTI = :RETURN 
| (1) 015700 004737 013700 16$: JSR PC, S$TYPEC ::ECHO CHAR 

(1) 015704 021627 000060 CMP (SP) , #60 s:CHAR < 0? 

(1) 015710 002420 BLT 18$ +: BRANCH IF YES 

(1) 015712 021627 000067 CMP (SP) #67 T:CHAR > 7? 

(1) 015716 003015 BGT ::BRANCH IF YES 

(1) 015720 042726 000060 BIC #60, (SP)+ t:STRIP=OFF ASCII 

(1) 015724 005766 000002 TST 2(SP) t:1S THIS THE FIRST CHAR 

(1) 015730 001403 BEQ 17$ ::BRANCH I 
(1) 015732 006316 ASL (SP) :zNO, SHIFT PRESENT 

(1) 015734 006316 ASL (SP) 33 HAR OV TO KE 
| 61) 015736 «006316 ASL (SP) :: ROOM FOR , 
| (1) 015740 005266 000002 17$: INC 2(SP) 3sKEEP COUNT OF CHAR 

(1) 015744 056616 177776 BIS =2(SP), (SP) [:SET IN NEW CHAR 

(1) 015750 000707 BR +:GET THE NEXT ONE 

(1) 015752 104401 001164 18$: TYPE $QUES S:TYPE 2<CR><LF> 

(1) 015756 000720 BR 30$ S:SIMULATE CONTROL-U 

(1) .DSABL LSB 

tf 

3, 
(2) FERRARA ARAEAAAAEERAEEEEEEEEREAAEREEAREAEREREREEERERERRREEEREE 
44 boty ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
*CALL: 

(1) ie RDCHR zz INPUT A SINGLE CHARACTER FROM THE TTY 

(1) ie RETURN HERE SICHARACTER IS ON TH 

(1) 7* T:WITH PARITY BIT STRIPPED OFF 

(1) 

(1) 015760 011646 SRDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC 

(1) 015762 016666 009004 000002 MOV 4(SP5 ,2¢SP) t:SAVE THE PS 

(1) 015770 105777 163150 1$: TSTB = @STKS T:WAIT FOR 

(1) 015774 100375 BPL 1$ t3A CHARACTER 

(1) 015776 117766 163144 000004 MOVB a$TKB,4(SP) t:READ THE TTY 

(1) 016004 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 

(1) 016012 026627 000023 CMP 4(SP) #23 t:1S 17 A CONTROL=S? 

(1) 016020 001013 BNE ::BRANCH IF NO 

(1) 016022 105777 163116 2s: TSTB = @STKS T:WAIT FOR A CHARACTER 

(1) 016026 100375 BPL 2$ S:LOOP UNTIL ITS THERE 

(1) 016030 117746 163112 MOVB  a$TKB,-(SP) [:GET CHARACTER 

(1) 016034 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 

(1) 016040 022627 CMP (SP)+,#21 t:1S IT A CONTROL-0? 

(1) 016044 001366 BNE $ t:1F NOT DISCARD IT 

(1) 016046 000750 BR 1$ [:YES, RESUME 

(1) 016050 026627 000004 000140 3$: CMP 4(SP),#140 t:1S IT UPPER CASE? 

(1) 016056 002407 BLT 4$ [:BRANCH IF YES 

(1) 016060 026627 000004 000175 CMP 4(SP),#175 t:1S IT A SPECIAL CHAR? 

(1) 016066 003003 BGT 4$ [:BRANCH IF YES 

(1) 016070 042766 000040 000004 BIC #40,4(SP) T:MAKE IT UPPER CASE 

(1) 016076 00000 : i $:G0 BACK TO USER 

(2) FF RAAAAAHAAAAAAEAAAEAAAAAEAEAEEEEAARAEERERAAEAAAEEEEEAAEREREREEEERE 

(1) gSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 

** Hy 


° 
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REA AAAEARAEAARAAEATAEATAEAATAEEAAARARAARERARERAAEERAERARAEREREEARERE 
Power UP ROUTINE 
16 000024 $PWRUP: MoV #SILLUP @#PWRVEC ::SET FOR FAST DOWN 
6422 MOV SSAVRO, SP siGET SP 


CNDRCA.P11 =»: 10=DEC=82 14:37 TTY INPUT ROUTINE SEQ 0056 
| wD :* RDLIN :: INPUT A STRING FROM THE TTY 

(1) ie RETURN HERE SSADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

(1) 8 S: TERMINATOR WILL BE A BYTE OF ALL 0°S 

(1) 016100 010346 SRDLIN: MOV R3,-(SP) Z:SAVE R3 

(1) 016102 012703 016206 1$: MOV ASTTYIN,R3 iGET ADDRESS 

(1) 016106 022703 016216 2$: CMP WSTTYIN¢8.,R3  ::BUFFER FULL? 

(1) 016112 101405 BLOS 4$ ::BR IF YES 

(1) 016114 104410 RDCHR 5:60 READ ONE CHARACTER FROM THE TTY 

(1) 016116 112613 MOVB (SP) +, (R3) t:GET CHARACTER 

(1) 016120 122713 000177 10$:  CMPB  #177,(R3) t:1S IT mM 

(1) 016124 001003 BNE 3$ 33 SKIP 

(1) 016126 104401 001164 4$: TYPE SQUES STYPE A '?° 

(1) 016132 000763 BR i$ ':CLEAR THE BUFFER AND LOOP 

(1) 016134 111337 016204 3$: MOVB (R3),9$ szECHO THE CHARACTER 

(1) 016140 104401 016204 TYPE , 

(1) 016144 122723 000015 CMPB OS s«#15,, (R3)+ ::CHECK FOR RETURN 

(1) 016150 001356 BNE ::LOOP IF NOT RETURN 

(1) 016152 105063 177777 CLPB = 1(R3) T:CLEAR RETURN (THE 15) 

(1) 016156 104401 001166 TYPE  ,$LF [:TYPE A LINE FEED 

(1) 016162 012603 MOV (SP)+, R3 s3RESTO 

(1) 016164 011646 MOV (SP) ,<(SP) 3 ;ADJUST THE STACK AND PUT ADDRESS OF THE 

(1) 016166 016666 000004 000002 MOV 4(SP5,2(SP) 33 FIRST ASCII CHARACTER ON IT 

(1) 016174 012766 016206 000004 MOV asitvin, 4(SP) 

(1) 016202 000002 RTI RETURN 

(1) 016204 000 9$: BYTE 0 23 STORAGE FOR ASCII CHAR. TO TYPE 

(1) 016205 000 “BYTE 0 TERM 

(1) B19s06 10 STTYIN: .BLK3 8. :ZRESERVE 8 BYTES FOR TTY INPUT 

(1) 016216 052536 005015 000 $CNTLU: <ASCIZ /*u/<15><12> 3 ;CONTROL ‘'U' 

(1) 016223 136 006507 000012 S$CNTLG: .ASCIZ /*G/<15><12>  ::CONTROL ''G 

(1) 016230 005015 053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = 

(1) 016236 020075 000 

(1) 016241 040 047040 053505 SMNEW: .ASCIZ / NEW = 

(1) 016246 036440 000040 

7447 .SBTTL POWER DOWN AND UP ROUTINES 

(2) SRRAEAAEAAAEAAEAAAAAAAEAAEAKAAEAATEAAAAAAAAAEAARAAAEAAERAAEAERERARERAREE 

(1) OWER DOWN ROUTINE 

(1) 016252 012737 016416 000024 jboweR MOV #SILLUP,@#PWRVEC :;SET FOR FAST UP 

(1) 016260 012737 000300 000026 MOV #PR6, AFPWRVEC +2 s:PRIO 0:6 | 

(3) 016266 010046 MOV RO,-(SP) 72:PUSH RO ON STACK 

(3) 016270 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 

(3) 016272 010246 MOV R2,-(SP) $:PUSH R2 ON STACK 

(3) 016274 010346 MOV R3,-(SP) +:PUSH R3 ON STACK 

(3) 016276 010446 MOV R4,-(SP) +:PUSH R4 ON STACK 

(3) 016300 010546 MOV R5,-(SP) +:PUSH RS ON STACK 

(3) 016302 017746 162632 MOV aswR,-(SP) 3PUSH @SWR ON STACK 

(1) 016306 010637 016422 MOV SP, SSAVR6 SSAVE SP 

(1) 016312 012737 016324 000024 MOV #SPURUP,a#PWRVEC’ ::SET UP VECTOR 

(1) 016320 000000 HALT 

(1) 016322 000776 BR 72 ::HANG UP 

(2) 

(1) 

(1) 

(1) 


016324 012737 0164 
016332 015706 01 


em 
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CNDRCA.P11 = 10=DEC=82 14:37 POWER DOWN AND UP ROUTINES SEQ 0057 
(1) 016336 5037 016422 CLR SSAVR6 z;WAIT LOOP FOR THE TTY 
(1) 016342 005237 016422 1$: INC SSAVR6 s:WAIT FOR THE INC 
(1) 016346 001375 BNE 1$ 3:CF WORD 
(3) 016350 012677 162564 MOV (3?) +,aSwR ::POP STACK INTO aSwR 
(3) 016354 012605 MOV (SP)+,R5 ‘:POP STACK INTO R5 
(3) 016356 012604 MOV (SP) +.R4 +:POP STACK INTO R4 
(3) 016360 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
(3) 016362 012602 MOV (SP) +.R2 ::POP STACK INTO R2 
(3) 016364 012601 MOV (SP)+.R1 ::POP STACK INTO R1 
(3) 016366 012600 MOV (SP)+-RO ::POP STACK INTO RO 
(1) 016370 012737 016252 000024 MOV #SPWRON, A#PWRVEC :;SET UP THE POWER DOWN VECTOR 
(1) 016376 012737 000300 000026 MOV #PR6, a#PWRVEC +2 3iPR R10:6 
(1) 016404 104401 TYPE :IREPORT THE POWER FAILURE 
(1) 016406 016424 SPWRMG: .WORD PWRMSG ::POWER FAIL MESSAGE POINTER 
(1) 016410 012716 MOV (PC) +, (SP) S:RESTART AT STA 
(1) 016412 901766 SPWRAD: sword STARTI t RESTART ADDRESS. 
(1) 016416 000000 SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
(1) 016420 000776 BR .-2 33 j BEFORE THE POWER DOWN WAS COMPLETE 
(1) 016422 000000 SSAVR6: 0 “PUT THE SP HERE 
7448 016494 005015 042522 052123 PWRMSG: .ASCIZ <15><12>/RESTARTED FROM PWR FAIL/ 
016432 051101 042524 020104 
— 016440 051106 046517 050040 
. 016446 051127 043040 044501 
016454 000114 
7449 EVEN 
7450 “SBTTL TRAP DECODER 
(2) FARA AAAAAAAAEAAAAEEEAE EERE AEEEAEAAAAAEARAEEAAREREAAEREREREAEEREEE 
(1) SSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
(1) StAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(1) [*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
(1) :*GO TO THAT ROUTINE. 
(1) 016456 010046 STRAP: MOV RO,-(SP) rzSAVE RO 
(1) 016460 016600 000002 MOV (SP), RO 3GET TRAP ADDRESS 
(1) 016464 005740 TST (RO [BACKUP BY 
(1) 016466 111000 MOVE (RO) .RO 33GET RIGHT BYTE OF TRAP 
(1) 016470 006300 ASL RO SPOSITION FOR INDEXING 
(1) 016472 016000 016512 MOV STRPAD(RO),RO 3: INDEX TO TABLE 
1) 016476 000200 RTS RO +:G0 TO ROUTINE 
(1) 
() zz THIS IS USE TO HANDLE THE "GETPRI'’ MACRO 
(1) 016500 011646 STRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
(1) 016502 016666 000004 000002 MOV 4(SP5,2¢SP) t:MOVE THE PSwW DOWN 
(1) 016510 000002 RTI T:RESTORE THE PSW 
(3) .SBTTL TRAP TABLE 
(3) *THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(3) [*BY THE "'TRAP’’ INSTRUCTION 
(3) : ROUTINE 
(3) 50 ee eeewe 


poo 
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CNDRCA DRVI1J DIAS TST PRTI MACY11 30(1046) 15=DEC=82 15:25 PAGE 61-14 
TRAP TABLE 


CNDRCA.P11 10=-bEC-82 14:37 SEQ 0058 
(3) 016512 016500 STRPAD: .WORD STRAP2 
(3) 016514 015466 STYPE 33 CALL=TYPE TRAP#1(1046401) ITY [YPEOUT ROUTINE 
(3) 016516 014242 STYPOC ;;CALL=TYPOC and $B ops fs TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 016520 014216 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 016522 014256 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
ta 016524 014444 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
th 016526 015546 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
(3) 016530 015476 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT=-SWR 
(3) 016532 015760 SRDCHR ;;CALL=ROCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
mt 016534 016100 SRDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
7452 -SBTTL ASCII MESSAGES 
7453 3;5PA TITLED: eASCIZ <15><12>/CNDRCA DRV11J DIAG TEST PART 1 /<15><12> 
7454 016536 005015 047103 051104 TILED: eASCIZ <15><12>/CNDRCA DRV11J DIAG TEST PART 1 /<15><12> ;;GPA 
016544 040503 020040 051104 
016552 030526 045061 042040 
016560 040511 020107 042524 
016566 052123 0 051101 
016574 020124 020061 006440 
016602 000012 
7455 016604 005015 051104 030526 TICABL: .ASCIZ <15><12>/DRV11J CABLE REQ‘'D/<15><12> 
016612 045061 041440 041101 
016620 042514 051040 050505 
7.56 016626 042047 005015 00 
7457 016633 122 043505 057040 EMI: eASCIZ /REG TIMEOUT ER/ 
016640 046511 047505 052725 
016646 042440 000122 
7458 016652 042522 020107 042522 EM2: e-ASCIZ ‘REG READ/WRITE ER‘ 
016660 042101 053457 044522 
016666 042524 042440 000122 
7459 015674 051111 020122 042522 EM3: eASCIZ /IRR REG ER/ 
016702 020107 051105 000 
7460 016707 101 051103 051040 EM4: eASCIZ /ACR REG ER/ 
016714 043505 042440 000122 
7461 016722 046511 020122 042522 EMS: eASCIZ /IMR REG ER/ 
016730 020107 051105 000 
7462 016735 111 051123 051040 EM6: eASCIZ /ISR REG ER/ 
016742 043505 042440 000122 
7463 016750 044103 050111 051440 €EM7: eASCIZ /CHIP STAT ER/ 
Bier 2e “eS 020124 051105 
7464 016765 105 051122 041520 DHI1: eASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 
016772 020040 052040 052123 
017000 052516 020115 041040 
017006 051525 posi 020122 
017014 042440 050130 erat 
017022 020040 051040 05310 
017030 000104 
7465 017032 051105 050122 020103 DH2: eASCIZ /ERRPC TSTNUM BUSADR ADRS EXPCT RCVD/ 
017040 020040 051524 047124 
017046 Be8383 020040 336308 
017054 040523 051104 02004 
017062 042101 051522 020040 


a rr ee ee 


CNDRCA DRVI1J DIAG TST PRT 
CNDRCA.P11 10=DEC=82 14:37 


017070 020040 054105 


017076 ped ise 020040 
017104 042126 000 
7466 
7467 017110 
7468 017110 001116 001362 
017116 001124 001126 
7469 017124 001116 001362 
017132 001120 001124 
017140 000000 


MACY11 30(1046) 


H § 
bm + a 15:25 PAGE 61-15 


ASCII MESSAGES 


001122 DTI: 
00 


901122 DT2: 
001126 


-EVEN 
SERRPC ,TSTNUM, SBDADR ,, SGDDAT , SBDDAT ,0 
SERRPC , TSTNUM, SBDADR , SGDADR, SGDDAT , SBDDAT ,0 


SEQ 0059 
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CNDRCA.P11 —-10=DEC-82 14 ASCII MESSAGES SEQ 0060 
7558 yTHE FOLLOWING .INIT CALL WAS ADDED TO INITIALIZE ODT 
7559 “VECTOR AND LKVEC. 

7560 017142 POINT=. :SAVE POINTER 
(1) 000100 21 
(1) 000100 017142 SCLKVEC ZLKVEC HANDLER 
(1) 000102 000300 300 : INTERRUPT HANDLER PRI 
(1) 000140 .=140 TBRKVEC 
(1) 000140 170000 170000 [ODT START ADDRESS 
(1) 000142 0003 300 [PRIORITY 
(1) 91714 .=POINT “RESTORE POINTER 
(1) 017142 104401 017150 $CLKVEC: TYPE .CLKMES 
(1) 017146 000000 HALT 
(1) 017150 005015 045514 0462526 CLKMES: .ASCIZ <15><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
(1) 017156 020103 047111 042524 
(1) 017164 051122 050125 020124 
(1) 017172 920055 044504 041523 
(1) 017200 047117 0462516 052103 
(1) 017206 046060 041524 000040 
7561 ;THE FOLLOWING FLAG WAS ADDED TO INDICATE IT IS FALCON 
7562 017214 000001 KXTFLAG: 1 
7563 000001 : 


CNDRCA DRVI1J DIAG TST PRTI 
10=DEC=82 14:37 


CNDRCA.P11 
ABASE = 174160 
ACDW! = 


: 


HRPBREE 


FEE 


Seeee 
SESSE 


id 
z 


é 


sues 


ee 


i 
e 


AVECT2= 
BEGPAT 013164 


BGCHP2 013226 


J 5 
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CROSS REFERENCE TABLE == USER SYMBOLS 


He 5743 5791 5792 5793 5794 5795 5796 


574 


DNNINIANANNNNANAN NANA 


# 5743 


a 
reese 7435 


NNN NNN EOS ENN NNN NSS SSS SSO NN SS SSS 


tr al vabesh ah sim balm Bm bah sh sh dh ah ah ah sh ah ah sh ah ab ah ab ah ah ah dh ab ah eh bh ah ah ah ah eh eh hh ah eh ah eel 
ww 
FERURAARR RPA CAGRAARARAARARARRARARRAGARAARAAARARARRRAR 


6087 6107 6127 6218 6273 6325 6379 


SS NOWWWWWN S&S @NWWNWNWWNWNINANWNAAAAANAWW 


™N 
Bi 


5797 


6596 


5798 


6621 


7012 


7140 


SEQ 0061 


7194 


K 5 
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(CNDRCA DRVI1J DIAG TST PRTI 

CNDRCA.P11 10=DEC=82 14:37 CROSS REFERENCE TABLE == USER SYMBOLS 

BGCHP3 0132 6715 6815 73614 

‘BGCHP4 013330 668 6786 «©6871 737 

‘BGPAT1 0131 695 73288 

BITO = 1 569 5898 5920 5931 5953 5975 994 

6112 6132 6153 6188 $2¢3 6227 $239 

| 6384 6388 6413 $99 013 + §=7014 074 

7233 7254 7255 314 

‘BITOO = 000001 56934 

BITO1 = 000002 56934 

BITO2 = 000004 56934 

BITO3 = 000010 56934 

BITO4 = 000020 56934 

BITOS = 000040 56934 

|B1T06 = 000100 56934 

BIT07 = 000200 56934 

BITO8 = 000400 56934 7445 

BITO9 = 001000 56934 7435 7445 

BIT1 = 000002 56934 5953 

BIT10 = 002000 56934 

BIT11 = 004000 56934 7445 

BITI2 = 010000 56934 

BIT13 = 020000 56934 7435 

BIT14 = 040000 56934 7445 

BIT15 = 100000 56934 5696 

BIT2 = 000004 56934 

BIT3 = 000010 56934 

BIT4 = 000020 56934 

BITS = 000040 56934 

BIT6 = 000100 56934 5897 5912 5919 5933 5940 5960 

BIT7 = 000200 56934 5897 5905 5912 5919 5933 5940 
6202 6230 6237 6337 6344 

BIT8 = 000400 56934 5697 

BIT9 = 001000 56934 5698 5933 

BPTVEC= 000014 56934 

BRKVEC= 000140 934 

CHPISR= 000140 57144 

CIMR = 000040 57044 6648 6667 6719 #6910 

CIRMR = 000020 5701# 6847 6956 7021 7022 7081 7082 

CIRR = 000100 57094 6767 6819 

CISR = 000160 57154 . 

CKSWR = 104407 7442 7445 74504 

CL 017150 75604 

CLRCSR 013056 5928 5949 5970 6001 6036 6067 6086 
6324 6378 6429 6459 6547 #6591 6616 
erry 6808 6837 6864 6899 6936 6945 

CLRIRR 01312 33 64 6504 6551 6741 6762 6784 

cR = 00001 Sete oS 

CRLF = 000200 36934 7431 

CSIMR = 000050 5705# 6688 

CSIRMR= 000030 57024 72 

CSIRR = 000110 57108 6788 

CSISR = 000170 37168 

DDISP = 177570 569 5743 5814 

DH1 016765 574 5752 5758 5764 5770 5776 $783 

DH2 017032 74654 


Wor 
4 
ow 


7149 


74648 


6230 
6005 


7150 


7204 


6020 


7205 


6073 
6334 
7200 


6027 


SEQ 0062 


6092 
6362 
7232 


6174 


+ -— 
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CNDRCA.P11 10=DEC=82 14:37 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0063 


/DIR_ = 000400 56974 5897 5974 005 6040 6230 6285 6337 6391 
DISPLA 001142 5743#@ 5814" 7435* 445* 
DISPRE 000174 5732# 5814 
DMAP 001364 58044 5855* 5856* 5859 7279* = =§=7283 
‘DRCSA = 001342 57914 5858* 586 5878 5891 5929 5950 6003 6070 6220 6277 6328 6431 
6460 6505 654 6594 6619 6643 6662 6683 6712 6739 6760 6782 6811 
6839 6867 6939 6946 6950* 6954* 7129 719 7230 7277 7297 7312 
DRCSB 001346 5793#@ 5971 6038 6089 ocee 6¢79 6382 643 6461 6506 6549 6595 6620 
| 044 $665 4 6713 6740 6761 6783 6812 6840 6868 6940 6947 7130 
|DRCSC 001352 5795# 5892 5930 6002 6109 6221 6327 6383 6454 6498 6542 6585 6611 
6636 6655 6675 6703 6732 6752 6774 6803 6832 6859 6894 6937 6951* 
6955* 7000 7127 7252 7299 
DRCSD 001356 57974 5972 6037 pat 627 6329 6381 6455 6499 6543 6586 6612 6637 
$636 $67 6708 6733 675 6775 6804 6833 6860 6895 6938 7001 7128 
DRDBA 001344 57924 6071 6252 6312 6351 
DRDBB 001350 57944 6090 6260 6304 6402 
DROBC 001354 5 6110 6244 6359 6418 
DRDBD 001360 57984 5865 6130 6296 6367 6410 
DSWR = 177570 56934 5743 5814 
dT1 017110 5747 5753 5759 5765 5771 5777 5784 74684 
DT2 017124 74698 
EDCHP1 013206 991 73368 
EDCHP2 013244 73518 
EDCHPS 013306 6726 6826 73694 
013350 6697 6797 6888 73864 
EMTVEC= spe 56934 oelss 
M 0166 5745 4574 
E 016652 5751 74584 
EMS 016674 5757 74594 
E 016707 5763 
EMS 016722 769 74614 
E 016735 5775 S94 14 
EM? 016750 5782 746 
ENDDAT 013464 oO 6101 6121 6141 6267 6319 6374 6425 6607 6632 7059 7187 7224 
ENDPAT 013372 73954 
ERRVEC= 000004 5693# 5814* 5877* 5888 7445+ 
= seeeee YJ 573 7450 
GTSWR = 104406 585 74504 
= 11 6934 7431 
1000 56984 7232 
IMRLOC 001372 5807# 6957* 6976 6994* 
INTFLG 001366 58054 
10 gooey 56934 5814+ 
IRRLOC 001376 58094 6958 6961 6993* 
001374 58084 
KXTFLA 017214 4h 7118 75624 
= 00001 569 7431 
LKVEC = 0001 56934 
LMD04 = 000200 57184 
LMDS7 = 000240 7194 
MACR = Bese re3e 6447 64 6491 6517 6376 659 6911 
MIMR = 000244 6436 647 6510 6534 656 662 6647 6666 6687 6716 6852 6882 





f-— SO OO nr 
! 


m5 
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| CNDRCA.P11 10=DEC=82 14:37 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0064 


“MIRR = 000250 57248 6442 6485 528 554 578 9 6744 765 787 6816 6844 6874 6929 
6970 0 032 101 114 153-7160 208 215 
IMISR = 000240 57228 64 9 52 6566 6923 
NEXPAS 002032 5860 8624 7285 
NEXPA] 002036 58634 5866 
XDEV 012674 72778 
NXDEV1 012700 5861 7278 7284 
$T = 170000 56934 
= 000300 57284 6467 6599 6907 
PATDAT 013374 73984 
0002 57298 6511 6624 
PIRQ = 177772 56934 
PIRQVE= 000240 56934 
POINT = 017142 75604 
PRO = 000000 56934 
PR1 = 000040 56934 
PR2 = 000100 56934 
PR3 = 000140 56934 
PR4 = 000200 56934 
PRS = 000240 56934 
PR6 = 000300 56934 5814 S870* 7447 
PR7 = 000340 56934 
PS = =_-:17777%6 56934 
PSW = 177776 56934 
= 000340 57308 
PWRMSG 016424 7447 76484 
PWRVEC= 000024 56934 5814* 7447% 
RDCHR = 104410 7446 74504 
RDLIN = 104411 74504 
= 100000 56968 5897 5912 5960 5974 5987 6005 6020 6040 6053 6230 6285 6337 
RESVEC= 000010 56934 
S = 000060 570 6668 6690 6846 6876 
SIRR = 000120 5711@ 6745 6766 6790 6845 6875 6909 
SSIMR = 000070 57074 6717 6957 
SSIRR = 000130 57128 6817 6958 
STACK = 001100 569 5867 
START 001402 5732 = 58148 
START1 001766 5852 58544 7286 7447 
STKLMT= 177774 56934 
SwR 00114 57434 5814* 7635 7465 7646% 7447% 
SWRCK 015044 7435 74404 
SWREG 000176 57324 5814 7646 
swO. = 000001 56934 
swOO = 000001 56934 
SwO1 = 000002 56934 
Sw02 = 000004 56934 
SwO3 = 000010 56934 
Sw04 = 000020 56934 
SwOS5 = 000040 56934 
Sw06 = 000100 56934 
sw07 = 000200 56934 
SWwO8 = 000400 56934 
SwO9 = 001000 69 
Sw1 = 000002 69 
Sw10 = 002000 6934 





gp assed 
j 
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/CNDRCA _DRV11J_DIAG TST PRT? 

ses 10=DEC=82 14:37 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0065 

'swi1 = 004000 56934 

‘gutg_ = 010000 36934 

'Swi3 = 020000 569 

Sw14 = 040000 56934 

'SwiS = 100000 56938 

Sw2 = 000004 56938 

SW3 = 000010 5693# 

Sw = 000020 56934 9 

SWS = 000040 56938 

Sw6 = 000100 56938 

SW? = 000200 56938 

SWB = 000400 56934 

Sw9 = 001000 56934 

TBITVE= 000014 56934 

TITLED 016536 5847 74548 

TKVEC = 000060 56934 

TLCABL 016604 5848 74558 

TPVEC = 000064 56934 

TRAPVE= 000034 56934 5814* 

TRTVEC= 000014 569 

TSTNUM 001362 5803# 7440" 7468 7469 

TST1 002074 58748 

TST10 003260 063 6066# 

TST11 003354 60854 

TST12 003450 61058 

TST13 003544 61258 

TST14 003640 4 

TST15 004010 6178 61814 

TST16 004156 62168 

TST17 004456 62718 

TST2. 002152 58908 

TST20 004744 63238 

TST21 005244 63774 

TST22 005532 64284 

TST23 005 6453 64584 

TST24 00607 6497 65028 

TST25 006302 6541 65464 

TST26 0065 6584 65904 

TST27 00662 6610 66154 
TS 002344 5924 59278 

TST30 006742 6635 66404 

TST31 007034 6654 66594 

TST32 007134 6674 66798 

TST33 007262 6702 

TST34 007410 6731 

TST35 007510 6751 67578 

007612 6773 «677 

TST37 007744 680 8078 

TST4 002454 594 9484 

TST40 010076 6831 3 

TST41 010222 6858 686 

TST42 010376 6893 68984 

TST43 010604 693 944# 

TST44 011124 6999 70054 

TST45 011412 0634 

TST46 011742 712571334 








oo 
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1 
CNDRCA.P11 10=DEC=-82 14:37 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0066 
012230 4 
805726 596 59694 
012440 72284 
012556 724 72504 
002720 599 60004 
003112 6032 0354 
= 104405 728 4504 
= 104401 584 5848 7286 7431 7433 7434 7435 7444 7446 7447 74504 7560 
= 104402 7444 7446 74504 
= 104404 74504 
= 104403 74504 
001370 58 5834* 5845 
00 57428 
= eeeeee | 743 
013774 74324 
013750 74328 
013756 7431 74328 
013766 74324 867435 
001134 574 5838* 5843 5851 7446 
001244 57434 5857 
001122 57434 5880* 5895* 5904* 5911* 5932 5951 5973% 5980*  5986« * 6012*  6019* 
6039* 6046* 6052* 6072* 6091 6111 6131% 6154% 6161* 6167* 6173 6189% 6195* 
6201* 6208* 6224*  6238*  6244* o¢3 * 6260* 6279% 6291*  6296*  6304* 6312 6331* 
6345* 6351% 6359%  6367* 6385* 63597* 6402 6410* 6418* 6434 6464* 6508+ 6552 
6597* 6622* 6645*  6664*  6685* 6714* 6742* 6763* 785*  6814% rt th 906* 
6959*  6968* 975* 6983" 7024* 7031* 085*  7091* 100* 7113 71528 159* 7207* 
{else 7234*% 243* 7256%  7264% 7468 7469 
001128 2 rt 5868 729 7468 7469 
0012 74 
013744 74314 
015476 74468 7450 
CLK 017142 75604 
SCMTAG 001100 57434 5814 
$CM3 = 000000 57434 
016223 74468 
SCNTLU geste 744 
16 74 
165 7434 87431 7435 7444 7446 


223 fo 
RSS 
& 

LY be | 
= 
2s 

Ww 
co 
io 
oOo 
we 


SoS 
=SNONO 
~ 
a 


ey 


FORESEES 
& 


1210 5 5836 7431 Pt3s 7435 
1211 7434 85814 7431 743 
§ 34 280 7286" 
Se i66 
110 574 7435* 7445* 
1115 et 5814* 7445* 
4670 ai 74354 
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| CNDRCA.P11 10=DEC=82 14:37 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0067 
| 


3 
SERRTY 01506 7441 74448 
/SERTTL 00111 aft 7435* 
SESCAP 00116 74 5814* 7435 7445* 
SE TABL poses ae 
SETEND 001 3 rth, 57438 
SFATAL 00117 574 5815* 7432 
SFFLG 014214 cian 
SFILLC 801128 574 7431 
SFILLS 00115 57434 7431 
$GDA got ise Ok rd 7469 
SGDDAT 001124 574 5875* 5897* 5901 5905* 5908 agile 5916 5919* 5923 5933* 5937 5940* 
5944 5952* 5957 5960* 5964 5974e 597 5981* 5983 5987* 5990 5993* 5996 
6005* 6009 6013* 6016 6020* 6024 6027* 6031 604 6043 6047* 6049 6053+ 
6056 6059* 6062 6074* 6078 6093* 6097 6113* 6133* 6137 6155* 6 
6162* 4 oigr* 6170 6174* 177 oi7ge 6193 oles 619 6202* 6205 209* 
esi 6230* 6234 6237* 6241 6245* o¢s 6250* 6257 6261* 6263 6285* 
6287 o¢? * 6293 6297* 6299 6302* 6305 6309 6313* 6315 6337* 6341 6344* 
6348 6352* 6354 63557* 6360 o78t 6368* 6370 6391* 6393 6396* 6399 6403* 
6405 6408* 6411 6415 6419* 6421 6435* 6438 6441* 6444 6449 6465* 68 
6470 6474* 9678 6480* o68¢ 6487 cH} 6509* 6512 6514 6518* 6520 6525 
6530 6535* 653 6553* 655 6561* 6 6567* 6569 6574 6580 00* 6603 
6625* 6628 o6ng* 6650 6665* 6670 6689* 6693 6718* 6722 6743" 6 6764* 
6769 6789* 679 6818+ ones 6843* 6849 6854 6873* 6879 6884 6912e 6914 
6918* 6920 orga" 6926 6931 960* +4 4 6967* 6969* 6972 6977* 6980 984% 
7026* 02 7033* 7034+ 035* 037 7041* 3 7047* 7049 7053* 7055 
7084* 7088 709 oie" 7104 7108* 7109 fils 7116 7120* 8 7121 7154* 7 
7161* 7162* 7163* 716 7169* 7171 7175* 386717 7181* 871 7209* 7211 7216* 
voice 7218* 7220 7235* 7242e = 7245 7257* 7261 7265* 7267 7301* 7468 
$GET42 013012 72864 
TSWR 015546 74468 7450 
$HD = 000003 5686 
SHIBTS 001000 Ok 94 
SICNT 001104 574 7445* 
SILLUP 016416 74478 
SINTAG 001135 57434 7446 
SITEMB 001114 57434 8 7435* 7444 
F 001166 57434 7431 7435 7446 
SLFLG 014213 7432e 
SLPADR 001106 57434 5814* 7445 
SLPERR 001110 57434 5814 6069* 6088+  6108*  6128* 6219*  6274*  6326*  6380*  6593*  6618* 6682+ 
6711* 6781* 6810* 6866" 7011* 71359 7195" 7435 7445* 
SMADR1 001222 57434 
SMADR2 001226 57434 
SMADRS 001232 57434 
SMADR4 001236 57434 
SMAIL. 001170 arts, 5743 5814 7431 7435 7445 
S1 001220 574 
$6 Boss 57434 
SMAMSS 001230 57434 
SMAMS4 001234 57434 
00100 arses 
SMFLG 01421 7432a* 
016241 cores 
SG 001204 574 7432 
SMSGLG 001206 57434 7432 


fate - —— oe + - --~— ———————— 
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CNORCA.P11 10=DEC-82 14:37 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0068 


i 
| 
sane 001170 5743@ 5816* 7432s 
SMSWR pieesy 744 
SMTYP1 001221 574 
SMTYP2 001225 57434 
SMTYP3 001231 Lag 
SMTYP4 001235 574 
SMXCNT 015474 74458 
SNULL 001154 57434 7431 
SNWTST= 000001 58744 58904 Ftd 59484 59698 60008 60354 60664 60854 61054 61254 61464 61814 
62164 62714 63234 63774 64284 6458% 65024 65464 65904 66154 66404 66594 66794 
Tes 9d 9c 368 67574 67784 68074 68364 686 68984 69444 70054 70634 71334 71924 
SOCNT 014440 74334* 
E 014442 74334* 
VE 015460 74458 
SPASS 001176 574 5814* 7286* 7445 
SPASTM 001006 57428 
SPWRAD 016412 74478 
SPWRON 016252 5814 74474 
SPWRMG 016406 74474 
SPWRUP 016324 74478 
SQUES 001164 57438 7431 7435 7446 
SRDCHR 015760 74464 7450 
SRODEC= seeeee 7450 
SROLIN 016100 74468 7450 
SROOCT= seeeee YJ 7450 
SZ = 10 74468 
SRTNAD 013034 728 
A = weeeere 745 
SSAVRE= eeeee2 UJ 
SSAVR6 016422 74474 
SSCOPE 015216 74458 
SSETUP= 117 58124 14 7286 7435 7445 7446 
STUP = 177777 58124 
SSVLAD 015424 74658 
$SVPC = 106 57374 
SSWR = 165400 56864 56904 569 5743 5814 5874 5890 5927 5948 9 6 6035 
6085 6105 612 6146 6181 6216 6271 6323 6377 6428 6458 650. 6546 
6590 6615 6640 6659 6679 6708 6736 6757 6778 6807 6836 686 6898 
6944 7005 7063 7133 7192 7228 7250 7286 7435 7445 7447 
SSWREG 001212 57434 5814 
SSWRMK= 000000 569 7445 
STESTN 001174 574 5817* 7445* 
STIMES 001160 5743@ 5814* 7228 7250% 7286+  7445* 
STKB 001146 57434 7446 
$TKS 001144 57434 7446* 
SIN = 2 56864 56914 58744 5890# 5924 59274 5945 59484 5965 9” 5997 6032 
60354 6063 epee? 60854 6105 61254 61464 6178 61814 6212 62164 62718 63234 
63774 64284 645 64584 6497 65024 6541 65464 6584 6590# 6610 15#@ 6635 
66404 6654 66594 6674 66794 ote ths 6731 67364 6751 6757# 6773 67784 
$508 oo0re $83 9838 $86 689 68984 6935 69444 6999 7005#@ 70634 
712 1 1924 2284 246 2504 
$TPB 001136 57434 74318 
STPFLG 00115 5743@ 7431 
TPS 001150 57434 8 7431 
STRAP 016456 5814 74504 


E 6 
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|CNDRCA.P11 10=DEC=82 14:37 CROSS REFERENCE TABLE == USER SYMBOLS 


| 
'$TRAP2 016500 4504 
i$TRP = spe dt 74504 
ISTRPAD 01651 74504 
STSTM 001004 57428 
STSTNM 001102 574354 7286* 7435 7440 7445 
STTYIN 016206 74468 
STYPBN= seeeee Y 7450 
STYPDS 014444 74344 7450 
iSTYPE 013466 74314 7432 7450 
STYPEC 013700 74318 7446 
STYPEX 013746 743184 
STYPOC 014242 74334 7450 
STYPON 014256 74334 7450 
STYPOS 014216 74334 7450 
IT 001202 5743@ 5854" 5869 7282* 
SUNITM 001010 57428 ? 
S 001214 74 
SVECT1 001240 57434 
SVECT2 001242 74 
petere 015230 74658 
SOFILL 014441 743354 
SGOCAT= eeenee 7435 7445 
© = 017216 57328 57334 57374 57384 57424 57434 5814 
7445 74464 7447 74674 756084 


-———— — + 


7286 


7431 


74328 


74344 


7435 


SEQ 0069 


74448 
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CNORCA.P11 10=DEC=82 14:37 CROSS REFERENCE TABLE =~ MACRO NAMES SEQ 0070 

COMMEN 15664 56934 

ENDCOM 15784 56934 

ERROR 56934 5887 ; 5910 5918 5925 5939 5946 5959 5966 5979 5985 5992 5998 6011 
6018 6026 603 6045 6051 6058 6064 6080 6099 6119 6139 6160 6166 6172 6179 
$¢00 6207 6213 623 6243 6249 6259 6265 6289 6295 6301 6311 6317 6343 6350 
6356 637 639 6401 6407 6417 6423 6440 6446 6451 6472 6478 6484 6489 
6495 6516 652 6527 6532 6539 6559 6565 6571 6576 6582 6605 6630 6652 6672 
6695 6724 6749 6771 95 6824 6851 856 6881 6886 6916 6922 6928 6935 6966 
6974 6982 6989 7030 39 7045 7051 7057 7090 7 7111 7123 7158 7167 7173 
7179 7185 7213 7222 7241 7247 7263 7269 


5 6066 6105 
6216 6271 6323 6377 6428 6458 6502 6546 6590 6615 6640 6659 6679 67 736 
6757 6778 6807 6836 6863 6898 6944 7005 7063 7133 7192 7228 7250 
POP 15 56934 7432 7434 7447 
PUSH 21458 56934 7432 7434 7447 
REPORT 56934 
SCOPE 5693#@ 5874 5927 8 9 6000 6035 6066 6085 105 6125 146 6181 6216 
6271 6323 6377 6428 6458 502 6546 6590 6615 6640 6659 6679 6708 6736 6757 
6778 6807 6836 6863 6898 6944 7005 7063 7133 7192 7228 7250 
SETPRI 12 56934 
SETTRA 74504 
SETUP 1337#@ 5693# 5814 
SKIP 1733#@ 5693# 5917 5924 5945 5965 5991 5997 6025 6032 6057 6063 6178 6212 6453 
6497 6541 $386 610 6635 6654 6674 6702 731 6751 6773 6802 6831 6858 6893 
6935 6999 125 246 
SLASH 15174 56934 
SPACE 56934 
STARS 14854 5693 5737 5742 5874 5890 5927 5948 9 6000 6035 6085 6105 
6708 6736 6757 6778 6807 6836 6863 6898 6944 7005 ? 7133 7192 7228 


TYPOCT 1941# 56934 7444 7446 


5969 6000 6066 6125 6146 6181 
6216 6271 6323 6377 =: 6428 6458 6502 gone 63° 6615 640 6659 6679 6708 #6736 
700 7133 7250 


SSSET 74504 
SSSETM 58144 
SSSKIP HAs 56934 5924 5945 5965 


665 
-EQUAT 1894 56814 693 
- HE ADE 61# 5680" 5686 


4 gels 6453 6497 6541 584 6610 


5743 596 6066 
oi¢3 6146 6181 6216 6271 6323 6377 6428 6458 6502 6546 44 6615 6640 6659 
6893 6935 6999 125 7246 


| 
| 
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CNDRCA.P11 | -10=DEC=82 14:37 CROSS REFERENCE TABLE == MACRO NAMES SEO 0071 
INIT 5658 5693# 7560 
Setup «6 i2i3# «56808 = 583 
“SWRHI 104 «= 56818 = 5692 
“SWRLO 56928 

ZSACT1 5064@ ©5683 ©5737 
‘ISAPTB «51098 ©5683 «= 57430 
“ISAPTH §=53708 «© 5683@ = 5742 
‘TSapty 55478 5683# ©7432 
ISASTA 54178 

“SCATC §=_ 932" «56818 = 5732 
SCHTA 10478 S681 5745 
“$DB20 48128 

: 45878 

: 22148 5682" 7286 


- $RDO 37978 568 

-SREAD 33954 56824 7446 
~SR2AZ 9584 

-SSAVE 396 

-$SB2D 47714 

-$SB20 48744 

-SSCOP 24544 S682# 7445 
-SSIZE 3614 

- $SUP 49134 

~ STRAP 0734 56804 7450 


- ABS. 017216 000 


ERRORS DETECTED: 0 


CNDRCA, CNDRCA/CR/NL : TOC=CNMAC2.SML,CNDRCA.P11 
RUN-TIME: 14 15 1 SECONDS 

RUN-TIME RATIO: 68/30=2.2 

CORE USED: 33K (66 PAGES) 


